Select Code to Download

sub _derange
{
...
    _derange( $cb,
        [ map { my $x = $_; [ grep { $_ ne $x } @_ ] } @_ ] );
}

my @x = ( 1 .. 4, 4 );
derange { print "@x[@_]\n" } 0 .. $#x;