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