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

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