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