#!/usr/bin/perl                            
                                           
use warnings;                              
use strict;                                
                                           
open(EIN, "<Eingabedatei.txt") or die $!;  
                                           
my %pnr;                                   
                                           
while(<EIN>) {                             
  chomp;                                   
  my $f = $_;
  $pnr{$f} = 1;                         
} # while                                  
                                           
close(EIN) or die $!;                      
                                           
                                           
open(EIN2, "<Eingabedatei2.txt") or die $!;
open(AUS, ">Ausgabedatei.txt")   or die $!;
                                           
while(<EIN2>) {                            
  my $vergleich = $_;
  print AUS $_ if defined $pnr{$vergleich};
} # while                                  
                                           
close(EIN) or die $!;                      
close(AUS) or die $!;                      
                                           
1;