#! /usr/bin/perl @blabber=&Doktor; print $blabber[0]{"komo hu pobe"}; # das funktioniert noch, bin ich stolz drauf print "\n"; while (($key, $value) = each $blabber[1]){ print $key.", ".$value."\n"; } sub Doktor{ my @doctors = ( {"komo hu pobe" => "Zeile 8", "momo en mumu" => "Zeile 827" }, {"actor" => "pubo", "years" => "irgendwann"} ); return @doctors }