Select Code to Download

$xf = 0;
    
$sthf->execute;
...
    $filiais[$xf] = $dataf[0];
    $xf++;
}

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

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

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