sub bzr (@) { my @a = @_; my $n; my $i = @_; map +($n=randi($i--), $a[$n], $a[$n]=$a[$i])[1], @_; } #### Rate run buk run 7467/s -- -12% buk 8454/s 13% --