my @zeilen_a = <$file_a>;
my @zeilen_b = <$file_b>;

my %zeilen_count;
$zeilen_count{$_}++ for (@zeilen_a, @zeilen_b);
my @zeilen_c = grep { $zeilen_count{$_} > 1 } (keys %zeilen_count);