#!/usr/bin/perl -w

my @mylist=qw/a b c d e f/;
my @comb=combinations(@mylist);
foreach(@comb){
$temp = join('',@$_) . "\n";
push (@temp, $temp);
}

print sort @temp;

sub combinations{
my @result=([]);
my @list=@_;

foreach my $item (@list){
@result=map {[@$_],[@$_,$item]} @result;
}
shift @result; #get rid of the empty entry
return @result;
}

#!E:\Perl\bin\perl -w

open(FILE,">comb.txt");

$num_chars = 10;

@chars=("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "-", "_", "");

for $i (@chars){
for $ii (@chars){
for $iii (@chars){
for $iiii (@chars){
for $iiiii (@chars){
for $iiiiii (@chars){
for $iiiiiii (@chars){
for $iiiiiiii (@chars){
for $iiiiiiiii (@chars){
for $iiiiiiiiii (@chars){
for $iiiiiiiiiii (@chars){
for $iiiiiiiiiiii (@chars){
for $iiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){

$line = $i . $ii . $iii . $iiii . $iiiii . $iiiiii . $iiiiiii . $iiiiiiii . $iiiiiiiii . $iiiiiiiiii . $iiiiiiiiiii . $iiiiiiiiiiii . $iiiiiiiiiiiii . $iiiiiiiiiiiiii . $iiiiiiiiiiiiiii . $iiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii;
unless($line =~ m# [^ ]#){
print FILE "$line\n";
}

}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

close(FILE);

#!E:\Perl\bin\perl -w
my @mylist=qw/a b c d e f/;
my @comb=combinations(@mylist);
foreach(@comb){
$temp = join('',@$_) . "\n";
push (@temp, $temp);
}

print sort @temp;

sub combinations {
my @result=([]);
my @list=@_;

foreach my $item (@list){
@result=map {[@$_],[@$_,$item]} @result;
}
shift @result; #get rid of the empty entry
return @result;
}