sub bukNoAlias (@) {
    my @a = @_;
    my( $n, $t );
    my $i = @_;
    map+( $t=$a[ $n=rand($i--) ], $a[ $n ]=$a[ $i ] )[ 0 ], @_;
}