my @hand = qw (a b c d);
my @ch = @hand;
for (@hand)
{
  $k = $_;
  for (0..$#ch)
  {
    push (@ch, $k.$ch[$_]) unless $ch[$_] =~ /$k/;
  }
}

say "@ch\n";

#!/usr/bin/perl
use strict;
use warnings;

my @hand = qw (a b c d);
my @ch;
for my $k (@hand)
{
  push(@ch,$k);
  for my $lst (@ch)
  {
    push (@ch, $k.$lst) if index($lst,$k)==-1;
  }
}

print join("\n",@ch)."\n";

#!/usr/bin/perl
use strict;
use warnings;

my @hand = qw(a b c d);

# Liste mit den Ergebnissen
my @ch;

# gehe die POSITIONEN in der Hand durch
for my $p (0..$#hand)
{
  # füge die Position in @ch ein
  push(@ch,[$p]);

  # gehe alle Elemnte in @ch durch
  for my $elm (@ch)
  {
    # hole die Liste aus @$lem
    # ist eine Kopie
    my @l=@$elm;

    # schaue in der Liste nach, ob die Position schon drin ist
    unless(grep{$p==$_}@l)
    {
      # füge die Position zur Liste hinzu
      push(@l,$p);

      # sortiere es
      # ist dann später übersichtlicher :-)
      @l=sort(@l);

      #füge diese Kombination als neue hinzu
      push (@ch, \@l);
    }
  }
}

##############
#Ausgabe: ####
##############

# gehe alles durch
for my $c (@ch)
{
  # gehe die einzelne Kombination durch
  for my $cc (@$c)
  {
    print $hand[$cc]." ";
  }
  print "\n";
}