sub shuffleArray{
        my @w = map { rand } @_; 
        @_[sort { $w[$a] <=> $w[$b] } 0 .. @_ - 1];
}