Ok so I made some changes to the script, but I am getting both outputs "Success" and "ahh crap"
use strict;
my (@lista, @listb, %comparison, @orderb,$text);
# Chew through the headers
open(DATA, "< C:\\vmcheckxxx.txt") || die "ERROR\n"; #opens filelist created by vertices
$_ = <DATA>; $_ =...