my @array = split //, $a;
for( my $i = 0; $i <= $#array; $i++ ){ }