#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump qw(dump);

my $mhfile = "list_headers.txt";
my @mhead;
open IDF, "<$mhfile" or die "There is no list file\n";
@mhead = <IDF>;
close IDF;
chomp @mhead;

my $rfile = "med_rules_ld_seg.txt";
my %medrules;
open IDF, "<$rfile" or die "There is no rules file\n";
while (<IDF>) {
	if(/\w+:.*/) {
		(my $hrule) = /(\w+):.*/;
		$medrules{$hrule} = $_;
	}
}
close IDF;
foreach my $mh (@mhead){
	if(exists($medrules{$mh})){ delete($medrules{$mh})};
}
foreach my $queda (sort keys %medrules){
	print "$medrules{$queda}";
}