if ($items[$i][3] =~ /\b$lastitem[3]\b/) {
     print "DUPLICATE\n";
     $dupcount++;
}