Select Code to Download

C:\test>perl -MList::Util=shuffle -wle"print join ' ', shuffle 'A'..'Z
+'"
Q I X H L R B C F E U M A S W J P K T O V N Y D G Z

...
my @arr = qw[ Q I X H L R B C F E U M A S W J P K T O V N Y D G Z ];
...