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