sub shuffleArray{
        my @p = @_;
        map { splice @p, $_ + rand(@p - $_), 1, $p[$_] } 0 .. @p - 1;
}