'ROBO' => sub {
            my $i = @array;
            do {
                my $j = int rand $i--;
                @array[$i,$j] = @array[$j,$i];
            } while (--$i);
        },