...
open(FILE, "<", $file)
while($z = <FILE>) {
    if ($z =~ <mein pattern>) {
        $key=$1;
        chomp $key;
    }
    if ($z=~ <mein 2. pattern>){
        $value=$1;
        chomp $value;
    }
    $hash{$key}=$value;
}
close(FILE)