Rekursive Array-Abfrage

[Beat]

my $a=( 1 .. 10 ); #Basismaterial
my %comb=( _ => 1);

foreach my $e (@a){
  foreach my $c (keys %comb){
    $comb{ $c . $e }=1;
    $comb{ $c }=1;
  }
}
delete $comb{_};

jetzt muss man nur noch von allen Keys den _ am Anfang entfernen.

Plözinn, einfacher

my $a=( 1 .. 10 ); #Basismaterial
my %comb=();
foreach my $e (@a){
  foreach my $c (keys %comb){
    $comb{ $c . $e }=1;
  }
  $comb{ $e }=1;
}

mfg Beat