for my $i (1..$#a) { my $random= rand( $i); swap(\$a[$i], \$a[$random]); }