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