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