...# Chew through the headers
my $DATA= "C:\\vmcheckxxx.txt";
open (DATA, "$DATA") or die "Can't open $DATA: $!\n";
while (<DATA>)
{chomp;
/.*\s(\d+)/;
$comparison{$1} = 'a';
}
my $TEXT= "C:\\tapestoeject.txt";
open (TEXT, "$TEXT") or die "Can't open $DATA: $!\n";
while (<text>)
{
map...