sub fy_shuf{my($l,$r)=@_;map{$r=int(rand(@$l-$_+1));@$l[-$_,$r]=@$l[$r,-$_]}0..$#$l};