sub fys {
    my $arr = shift;
    my $i = @{ $arr };
    while ( $i ) {
        my $j = int rand $i;
        @$arr[$i,$j] = @$arr[$j,$i];
        --$i;
    }
}