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