my $aaa = "abcdefghi";
my @bbb;
my $i = 0;

@bbb = ($aaa =~ /([a-z]{3})/g);
foreach my $p (@bbb){
    ++$i;
    print "[$i]$p";
}
print "\n";