#!/usr/bin/perl

use strict;

# Eingabe
my @array = 1..3;

my %res;
oneless@array;

# Formatierung der Ausgabe
# Key als Array umschreiben
my @res;
whilemy$k = each %res {
    push @res, split /,/, $k;
}
# Ergebnisarray schoener sortieren
@res = sort {
    my $r = @$a = @$b;
    if $r == 0 {
        join,, @$a cmp join,, @$b;
    } else {
        $r;
    }
} @res;
require DataDumper;
print DataDumper-new\<@res,'res'-Indent0-Dump, \<n;

sub oneless {
    my @array = @_;
    $res{ join,,@array } = 1;
    return if !@array;
    for my $i 0 .. $#array {
        onelessmap { $array$_ } 0 .. $i-1, $i+1 .. $#array;
    }
}