Re^4: mem usage

[ikegami]

Including cleaning up the counter,

sub shuffle {
    my $array = shift;
    my $i = @$array;
    while ($i) {
        my $j = int rand($i--);
        my $t = $array->[$i];
        $array->[$i] = $array->[$j];
        $array->[$j] = $t;
    }
}