Select Code to Download

my @input = ( 'a' .. 'e' );
my $max_subset = 3;
...
        for 0 .. $#input;
    print "@subsets\n";
}

abc de
abc d e
...
a b ce d
a b c de
a b c d e

sub NestedLoops
{
...
        }
    };
}