Hash auf Hash mit eval

[Beat]

also um eine Zeile zu parsen, brauchst du kein eval.

my %h;
while(<>){
 /^(.*?)=>(.*?)\n/ and $h{$2}{$1}=$2;
}

mfg Beat