Select Code to Download

# your original queries format odd so I adjusted it slightly
# think this may also be the source of your results
...
            );
            ListaDados($hashref);
        }

sub ListDados {
...
    }
}