@foo = ("1zz", "zzz", "zz1", "z1z", "zz9");

foreach my $foo (@foo) {
  print "$foo autoincraments to ";
  $foo++;
  print "$foo\n";
}

##</code><code>##

1zz autoincraments to 2
zzz autoincraments to aaaa
zz1 autoincraments to zz2
z1z autoincraments to 1
zz9 autoincraments to aaa0