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