open INFILE1, '<content.csv' or die "Fehler beim Öffnen der Datei";
open INFILE2, '<common.csv' or die "Fehler beim Öffnen der Datei";
open OUTFILE, '>neu.csv' or die "Fehler beim Öffnen der Datei";

my @datei1 = <INFILE1>;
my $nummer1;
my $kuerzel1;
my $gesetz1;

my @datei2 = <INFILE2>;
my $nummer2;
my $kuerzel2;
my $gesetz2;

my %hash;

for (my $i=1;$i<@datei1;$i++){
	my $line1 = $datei1[$i];
	($nummer1, $kuerzel1, $gesetz1) = split /;/, $line1, 3;
}

$hash {$kuerzel1} = $gesetz1;

for (my $j=1;$j<@datei2;$j++){
	my $line2 = $datei2[$j];
	($nummer2, $kuerzel2, $gesetz2) = split /;/, $line2, 3;
}

if (exists($hash{$kuerzel2})){
	print OUTFILE join(';', $kuerzel1, $gesetz1, $gesetz2);
}