my $count=$ARGV[0];
my $distinct=$ARGV[1];
srand(12345);
for (my $i=0;$i<$count;$i++) {printf "a%010d\n",rand($distinct);}