$xf = 0;
    
$sthf->execute;
    
while (@dataf = $sthf->fetchrow_array())
{
    $filiais[$xf] = $dataf[0];
    $xf++;
}
##</code><code>##

while (my ($col) = $sthf->fetchrow_array())
{
    push @filiais, $col;
}
##</code><code>##

 for ($m=1; $m<=12; $m++)#Make an array of months
        {
            $months[$m] = $m;
        }
        
        foreach $months(@months)
        {

##</code><code>##

foreach my $month (1 ... 12)
{