#!/usr/bin/perl -w
#my @genString = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9');
my @genString = ('a', 'a', 'a', 'a', 'a', 'a', 'a', 'a', 'a', 'a');
my @chars = ("a".."z", "A".."Z", "0".."9");
my $cnt=0;

for(my $i; $i <= $#genString; $i++) {
  foreach my $newChar (@chars) {       
      $genString[$i] = $newChar;     
      print "", @genString, "\n";       
#      print "$cnt\t\t", @genString, "\n";       
      $cnt++;                             
     }                                    
 }