my $INFILE1 = 'asw_content.csv';
my $INFILE2 = 'fv_common.csv';
my $OUTFILE = 'neu.csv';
open (my $fh1, '<', $INFILE1) or die "Fehler beim Öffnen der Datei";
open (my $fh2, '<', $INFILE2) or die "Fehler beim Öffnen der Datei";
open (my $fh3, '>', $OUTFILE) or die "Fehler beim Öffnen der Datei";

my @datei1 = $fh1;
my $nummer1;
my $kuerzel1;
my $gesetz1;

my @datei2 = $fh2;
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 $fh3 join(';', $kuerzel1, $gesetz1, $gesetz2);
}