foreach my $subkey ($user_key->SubKeyNames,$software_key->SubKeyNames) {
     if ( exists $bad_stuff{$subkey} ) {
	print "Machine $computer could have $subkey installed\n";
     }
						 
}