while( length my $a =substr $z,$g,1) {