while(<FILE>) { 
   @line = split(/\t/, $_);
   $itemDB = $line[0]; 
   if ($itemDB eq $item) {
      &Sub1();
      last;             # <----
   } else {
      &Sub2();
   }
}