use List::Util qw(shuffle);

my @begriffe = qw(eins zwei drei vier fuenf 
                  sechs sieben acht neun zehn);
my $anzahlKaertchen = 200;

my %karten = ();  # Hash mit den erzeugten Karten

while (keys(%karten) < $anzahlKaertchen) {
  # Liste mit 6 zufällig ausgewählten Begriffen anlegen
  my @karte = (shuffle(@begriffe))[0..5]; 

  # eindeutigen Hash-Key für die ausgewählte Kombination erzeugen 
  my $key = join('|',sort @karte);
  # falls es die Kombination noch nicht gab, 
  # wird die Karte im Hash gespeichert
  unless ($karten{$key}) {
    $karten{$key} = \@karte;
    print int(keys %karten) ,". Karte : ",join(" · ",@karte),"\n";
  }
}