Select Code to Download

use strict;
use warnings;
...
delete @hash{ map { split / / } grep{/ /} keys %hash };

print pp \%hash;

{
  "automation technology" => 2,
...
  "rendition" => 3,
  "saturation" => 3,
}