use strict;
use CGI qw(:standard);
print header;
print start_html("Hash Test");
my %HoL_compare_pub=('NL','The Netherlands','BE','Belgium','DE','Germany','MC','Monaco','ES','Spain'); 
my %HoL_pub=('NL','The Netherlands','BE','Belgium'); 
my %no_matches;
foreach my $key (keys %HoL_compare_pub) {
    push @{$no_matches{$key}}, $HoL_compare_pub{$key}
    unless exists $HoL_pub{$key};
}
foreach my $noMatchKey (keys  %no_matches){
    print "$noMatchKey\n";
}
print end_html;