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