Select Code to Download

if ($substr eq $arrfields[0]){
     print "$string\n";
     last;
   }

#!/usr/bin/perl
use strict;
...
 print "$count records created in $file1 and $file2\n";
}