Another way to do the same thing:

use List::Util 'shuffle';

my @list = do { local $/; <> =~ /\S/g };

print "@list\n";

my @list2 = shuffle @list;

print "@list2\n";
[download]