sub rndlc{local$"=''; "@{[map{chr(97+int rand 26)} 1 .. shift]}" };
my $filename = rndlc(10);