my $max = 50000;
my @l = ('a'..'z');
my @keys = map { join '', map $l[rand @l], 0..71 } 0..$max;