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