c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub shuffle {
   my $array = shift;
   my $i;
   for ($i = @$array; --$i; ) {
     my $j = int rand ($i+1);
     next if $i == $j;
     @$array[$i,$j] = @$array[$j,$i];
     }
   }
 ;;
 my @lines = qw(foo bar baz quux);
 my @reordered = shuffle(\@lines);
 dd \@reordered;
"
[0]