@chartab = (0..9, a..z);
foreach $first (@chartab)
 {
  foreach $second (@chartab)
   {
    foreach $third (@chartab)
     {
      print $first, $second, $third, ",";
     }
   } 
 }