sub ikegami (@) {
    my @a=@_;
    my $i=@a;
    my $n;
    my $x;
    map +( $n=rand($i--), $x=$a[$n], $a[$n]=$a[$i] )[1], @a
}