if (!exists $seen{$key}){
  print OUTDATEI "$line\n";
  $seen{$key} = $value;
}elsif ($value ne $seen{$key}){
  print OUTDATEI "$line\n";
  $seen{$key} = $value;
}