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