sub search
{
     my ($PartNumber) = @_;

     while (<FILE>)
     {
          if ($main::fields[0] eq $PartNumber)
          {
                # ...
                return 1;   # Ends search() function
          }
     }
     close(FILE);

     return;  # Returns empty handed
}