my %hash = %{$sth->fetchrow_hashref()};
[download]

while (my $row = $sth->fetchrow_hashref()) {
   my $mail = $row->{mail};
   print "$mail\n";
}
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.