$logfile="d:\\ScanReps\\TR&D\\WDL_Scan_0000.csv";
$locofile = "d:\\ScanReps\\TR&D\\locos.txt";
open(DAT, $logfile);
open(loco, $locofile);
%loco_data = <loco>;
close(loco);

$linecnt1 = 0;
$linecnt2 = 0;

while ($record = <DAT>)
{
   chop($locodn);
  ($RR_Name,$Loco_no,$Event_Date,$Event_Time,$Event_Code,$Event_Duration,$Source_File)=split(/,/,$record);

  chop($loco_data);
  chop($Loco_no);

  if (exists($loco_data{$Loco_no}))
  {
   $linecnt1 = $linecnt1 +1;
  }

  $linecnt2 = $linecnt2 + 1;
  print "Rec: ",$linecnt2, " In: ",$linecnt1, "\r";
}
close(DAT);