my $0.02;

use strict;

my @list = (1,2,3);
my @result = (); 

for my $elem (@list) {
    push @result, [ @$_, $elem ] for @{ [ @result ] };
    push @result, [ $elem ];
}

use Data::Dumper;
print Dumper @result;
[download]

Got:

$VAR1 = [
          1
        ];
$VAR2 = [
          1,
          2
        ];
$VAR3 = [
          2
        ];
$VAR4 = [
          1,
          3
        ];
$VAR5 = [
          1,
          2,
          3
        ];
$VAR6 = [
          2,
          3
        ];
$VAR7 = [
          3
        ];
[download]