#!/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 = ; 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 () { 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}"; }