#!/usr/bin/perl

use warnings;
use strict;

open(EIN, "<Eingabedatei.txt") or die $!;

my %pnr;

while(<EIN>) {
   chomp;
   my @f = split(/\t/);
   $pnr{$f[0]} = 1;
} # while

close(EIN) or die $!;


open(EIN2, "<Eingabedatei2.txt") or die $!;
open(AUS, ">Ausgabedatei.txt")   or die $!;

while(<EIN2>) {
   my @satz = split(/\t/);
   my $vergleich = $satz[0];
   print AUS $_ if defined $pnr{$vergleich};
} # while

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

1;