sub ich_gebe_eine_liste { return "warner", "brosers"; }
my $scalar = ich_gebe_eine_liste;
print $scalar."\n"; # brosers
print ich_gebe_eine_liste,"\n"; # warnerbrosers