open(FILE, "<", $file)
my $key;
while($z = <FILE>) {
  my $value; 
  if ($z =~ <mein pattern>) {
      $key=$1;
      chomp $key;
  }
  elsif ($z=~ <mein 2. pattern> && $key ne ''){
      $value=$1;
      chomp $value;
  }
  if ($value ne '' && $key ne ''){
      if(exists($hash{$key})){
          push @{$hash{$key}}, $value;
      }
      else {
          $hash{$key}=[$value];
      }
     $key='';
  }    
}
close(FILE);