open my $fh, "<", \$e_mail or die;
while (<$fh>) {
    # process line
    }