foreach (keys (%dados))
    {
        $vf = "R\$ ";
        $tf = "R\$ ";
        $dados{$fil}{$gel}{$dte}{valor} =~ s/\.0000$/\,00/;
        $vf .= $dados{$fil}{$gel}{$dte}{valor};
        
        if ($cnt eq 0)
        {
            $message .= "<TR class=\"texto3\">
            <TD colspan=\"4\" BGCOLOR=\"$color2\"><span class =\"texto2\">$dados{$fil}{$gel}{$dte}{nome}</span></TD>
            </TR>
            <TABLE WIDTH=\"100%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">
            <TR CLASS=\"texto2\">
            <TD>Client</TD>
            <TD>Business</TD>
            <TD>Status</TD>
            <TD>Value</TD>
            </TR>
            <TR>
            <TD COLSPAN=\"4\">
            <HR>
            </TD>
            </TR>
            <TR CLASS=\"texto3\">
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{cliente}</TD>
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{negocio}</TD>
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{status}</TD>
            <TD BGCOLOR=\"$color2\">$vf</TD>
            </TR>";
            $cnt++;
            ($color2,$color1) = ($color1,$color2);
        }
        else
        {
            $message .= "<TR CLASS=\"texto3\">
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{cliente}</TD>
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{negocio}</TD>
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{status}</TD>
            <TD BGCOLOR=\"$color2\">$vf</TD>
            </TR>";
            ($color2,$color1) = ($color1,$color2);
        }
    }
}