foreach my $val (sort keys %prolist)
{
    unless (grep($prolist{$val} eq $_))
    {
        print "NF: $prolist{$val}\n";
    }
}