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

##</code><code>##

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