sub qshuf {
     my %hash;
     sort { $hash{$a}{$b}||=(.5 <=> rand 1) } @_;
}