#!/usr/bin/perl

use warnings;
use strict;

open(EIN, "<Erste_Tabelle.txt") or die $!; # In dieser Datei stehen deine Daten

my (%pnr1, $cnt);

$cnt = 0;

while(<EIN>) {
   chomp;
   my @f = split(/,/); # Annahme das du nach , splitten willst...
   $pnr1{$f[0].$f[1]} = 1; # merken von deinen Vergleichsfeldern
   ++$cnt % 1000 or print "Bei Satz $cnt.\n"
} # while

print "Fertig mit $cnt Saetzen.\n";

close(EIN) or die $!;

##############################


open(EIN, "<Zweite_Datei.txt") or die $!; # hier stehen wieder deine Daten
open(AUS, ">Gefunden.txt")     or die $!; # und hier die gefundenen

$cnt = 0;

while(<EIN>) {
   my @f = split(/,/); # gleich wie oben
   my $vergleich = $f[0].$f[1] if $f[0] =~ m/^\d+/; # Vergleichsfeld definieren 
                                                        # nur wenn 1. Stelle eine Zahl
   print AUS $_ if defined $pnr1{$vergleich}; # nur schreibe wenn gleich...
#  print AUS $_ if not defined $pnr1{$vergleich}; # nur schreibe wenn nicht gleich...
   ++$cnt % 1000 or print "Bei Satz $cnt.\n"
} # while

print "Fertig mit $cnt Saetzen.\n";

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

1;