Select Code to Download

use Data::Dumper;

...

        return @result;
}

my @seen = ();
while (@elements)
...
         combinations($size-1, @seen, @elements);
     push @seen, $elem;
}