my $anzahl = my @zeilen = qw( Zebra Affe Loewe Baer Pinguin );