for my $a (split //, $z){
#Process characters in this here
}