sub sm{
    my $n = @{ $_[ 0 ] };
    push @{ $_[ 0 ] }, splice @{ $_[ 0 ] }, rand $n--, 1 while $n;
}