print "Before:\n";
foreach my $priKey (sort keys %List)
{
    print "$priKey\n";
}
if (exists $List{"c"}{"1"} )
{
    print "found a bad one\n";
}
print "After:\n";
foreach my $priKey (sort keys %List)
{
    print "$priKey\n";
}