while(<FILE>) {
   flock(FILE, 2); 
   @line = split(/ /, $_); 
   $itemDB = $line[0]; 
   if ($itemDB eq $item) {
      $found++ 
   }
}

##</code><code>##

     print OUTFILE "$var1\t$var2\t$var3\n";

##</code><code>##

     print OUTFILE $ary[0] . "\t" . $ary[1] . "\t" . $ary[2] . "\n";

##</code><code>##

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