use strict;
use warnings;

my @trailer;
my @logfile;

open IN, "trailer" or die $!;
while (<IN>)
{
	push @trailer, $1
		if /Trailer(\d+)/;
}
close IN;

open IN, "logfile" or die $!;
while (<IN>)
{
	push @logfile, $1
		if /Total Records Imported :(\d+)/;
}
close IN;

die "number of imports doesn´t match!\n"
	if @trailer != @logfile;

for (0..$#trailer)
{
	print "import no. $_: ", ($trailer[$_] == $logfile[$_] ? "ok\n" : "not ok\n");
}