foreach my $software (keys %bad_stuff) {
    if($subkey =~ $bad_stuff{$software}) {
        next if($installed_software{$machine.$software}++);
        print "Machine $machine could have $software installed\n";
    }
}