Select Code to Download

        my @array;
        push @array, "one";
...
  my @rest = combinations(@_);
  return @rest, map { [$first, @$_] } @rest;
}

$VAR1 = [
          '',
...
          'one|two|three',
          'one|two|three|four'
        ];

$VAR1 = [
          'one|two|three|four'
...
          'one',
      ''          
        ];