@array=qw (Message-ID:
           Content-Type:
           Content-Disposition:
           and_so_on...
);
LINE: while( $_ =  <EMAIL> ) {
    foreach $header (@array) {
        next LINE if /^$header/;
    }
    .
    .
    .
}