for (1..100) { my %h; $h{$_} = 1 for 'a'..'z'; print(join('', keys(%h)), "\n"); } #### wraxdjyukhgftienvmslcpqbzo wraxdjyukhgftienvmslpcqbzo wraxdjyukhgftienvmslpcqbzo wraxdjyukhgftienvmslpcqbzo wraxdjyukhgftienvmslpcqbzo wraxdjyukhgftienvmslpcqbzo ... wraxdjyukhgftienvmslpcqbzo wraxdjyukhgftienvmslpcqbzo