#!/usr/bin/perl

use warnings;
use strict;

# Datei 1 einlesen und Zeile merken
open(EIN1, "<Eingabedatei1.txt") or die $!;

my %pnr;

while(<EIN1>) {
   my $zeile = $_;
   $pnr{$zeile} = 1;
} # while
close(EIN1) or die $!;

# Datei 2 einlesen, verleichen und wenn Zeile gleich ist ausgeben
open(EIN2, "<Eingabedatei2.txt") or die $!;
open(AUS,  ">Ausgabedatei.txt")  or die $!;

while(<EIN2>) {
   print AUS $_ if defined $pnr{$_};
} # while

close(EIN2) or die $!;
close(AUS)  or die $!;