Select Code to Download

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

$sth->execute;
$sth->bind_columns(\my $x, \my $y);
while ($sth->fetch) {
   # use $x and #y
}

my $sth = $dbh->prepare('select w from x where y = ? and z = ?');
$sth->execute($y, $z);