#!/usr/bin/perl

use strict;
use warnings;

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

for (1..$anzahlKaertchen) {
    print "Kaertchen Nr. " . $_ . ":\n";
    my @vals = (0..9);
    for my $i (0..5) {
        my $rand = int(rand()*@vals);
        print "\t" . $begriffe[$vals[$rand]] . "\n";
        splice(@vals,$rand,1);
    }
}