foreach $results (@results){
	  ($field_1,$field_2,$field_3) = split(/\|/,$results);
print<<feach;
    <tr> 
    <td bgcolor="#C0C0C0" colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">$field_1</font></td>
    </tr>
feach
}

##</code><code>##

sub search_database{
  my $search_for = $_[1];
  open(DB, $_[0]) or die "Error opening file: $!\n";
    while(<DB>){
      if($search_field eq "all"){
        if(/$search_for/oi){push @results, $_};
      } else {
        ($field_1,$field_2,$field_3)=split(/\|/);
        if(${$search_field} =~ /$search_for/oi){push @results, $_};
      }
    }
  close (DB);
}