Select Code to Download

sub combinations {
    my $n = shift;
...
use Data::Dumper;
print Dumper [ combinations(2, (0, 1, 2, 3)) ];

    return [] if $n == 0;