#!/usr/bin/perl
use strict;
use warnings;

my $infile1 = 'content.csv';
my $infile2 = 'common.csv';
my $outfile = 'neu.csv';

my %hash;
open(my $datei1, '<', $infile1) or die "Fehler beim Öffnen der Datei";

while(my $line = <$datei1>) {
	chomp $line;
	my ($nummer, $kuerzel, $gesetz) = split /;/, $line, 3;
	$hash{$kuerzel} = $gesetz;
}
close $datei1;

open(my $datei2, '<', $infile2) or die "Fehler beim Öffnen der Datei";
open(my $neu,  '>', $outfile) or die "Fehler beim Öffnen der Datei";

while(my $line = <$datei2>) {
	chomp $line;
	my ($nummer, $kuerzel, $gesetz) = split /;/, $line, 3;
	if (exists $hash{$kuerzel} && $hash{$kuerzel} ne $gesetz) {
    print $neu join(';', $kuerzel, $hash{$kuerzel}, $gesetz)."\n";
  }
}
close $datei2;
close $neu;