Help for this page
use strict; use warnings; ... delete @hash{ map { split / / } grep{/ /} keys %hash }; print pp \%hash;
{ "automation technology" => 2, ... "rendition" => 3, "saturation" => 3, }