open(FILE, $mail);
@mailf = map { chomp; $_ } <FILE>;
close(FILE);
# now process $mail[n]

##</code><code>##

@mailf = <FILE>;
chomp(@mailf);