Select Code to Download

sub fisher_yates_shuffle {
    my $array = shift;
...
        @$array[$i,$j] = @$array[$j,$i];
    }
}

fisher_yates_shuffle( \@array );