sub blokhead (@) {
    my @a = (0 .. $#_);
    my $i = @_;
    my $n;
    map+( $n=rand($i--), $_[$a[$n]], $a[$n]=$a[$i] )[ 1 ], @_;
}