#! /usr/bin/perl use strict; use warnings; my @blabber=Doktor(); # Funktion in moderner Schreibweise aufrufen! print $blabber[0]{"komo hu pobe"}; # das funktioniert noch, bin ich stolz drauf print "\n"; while (my ($key, $value) = each %{$blabber[1]}){ # Hash-Referenz aus Liste in Hash umwandeln, nennt sich auch dereferenzieren print "$key, $value\n"; # Es darf ruhig alles in eine zeichenkette "" rein } sub Doktor{ my @doctors = ( { "komo hu pobe" => "Zeile 8", "momo en mumu" => "Zeile 827" }, { "actor" => "pubo", "years" => "irgendwann" } ); return @doctors; }