map {
        my ($key, $value) = split /\s+->\s+/; # Zeile am -> aufteilen, um Schlüssel + Wert zu bekommen
        push @{ $hash{$key} },$value;         # Wert in Array (wegen mehrfacher Werte!) schieben
} 
@daten;