@sorted = sort {uc($a) cmp uc($b)} @results;

foreach $sorted (@sorted){
	  ($field_1,$field_2,$field_3) = split(/\|/,$sorted);
print<<feach;
    <tr> 
    <td bgcolor="#C0C0C0" colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="/relatorios/$user/$razao_social.data" target="_top">$razao_social</a></font></td>
    </tr>
feach
}