#!/usr/bin/perl

use warnings;
use strict;

open(EIN, "<test.csv") or die $!;

my %pnr;

while(<EIN>) {
   chomp;
   my @f = split(/;/);
   $pnr{join("", @f[0..126])} = 1;
} # while
close(EIN) or die $!;

open(EIN, "<testNEU.csv") or die $!;
open(AUS, ">NEU.txt")     or die $!;

while(<EIN>) {
   chomp;
   my @satz = split(/;/);
   my $vergleich = join("", @satz[0..126]);
   print AUS $_."\n" if not defined $pnr{$vergleich};
} # while

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

print "Fertig.\n";

1;