sub parse_mail (
  my @mail;
  @mail = @_;
    foreach my $mail ( @mail ) {
        open (MAIL,$mail) || die "Cannot open $mail, $!";
        push @mailf, <MAIL>;
        chomp (@mailf);
        close (MAIL) || die "Cannot close $mail, $!";
    }

    return @mailf;    
}