#!/usr/local/bin/perl-5.10.1 -w

use strict;

my $var = 5;
my @list = 1..$var;
my @combos;
foreach ( 0..($var-1) ){
	
	my @temp_array;
	
			push(@temp_array , "$list[$_]");
	if($list[$_+1]){push(@temp_array , "$list[$_]$list[$_+1]")}
	if($list[$_+2]){push(@temp_array , "$list[$_]$list[$_+1]$list[$_+2]")}
	if($list[$_+3]){push(@temp_array , "$list[$_]$list[$_+1]$list[$_+2]$list[$_+3]")}
	if($list[$_+4]){push(@temp_array , "$list[$_]$list[$_+1]$list[$_+2]$list[$_+3]$list[$_+4]")}
	
	push(@combos, @temp_array);

}

print "@combos\n";