$zz = 'aa1';

foreach $i (1..30)
  {
  print $zz, ", ";
  $zz++;
  }