$sth->execute($id) or err_trap;
$sth->bind_col(1, \my $e_mail);

while ($sth->fetch) {
  print "$e_mail\n";
}

##</code><code>##

while (my ($e_mail) = $sth->fetchrow_array) {
  ...