use strict; use warnings;
use Data::Dump;

my %h = (
    'rendition' => '3',
    'automation' => '2',
    'saturation' => '3',
    'mass creation' => 2,
    'technology' => 5, 
    'process' => 6, 
    'creation' => 7,
    'saturation process' => 9,
    'automation technology' => 2,
    'automation technology process' => 3,
);  
dd 'before', \%h;

for (keys %h) {
    if (/\s/) {
        my @l = split ' ';
        for my $k (map {my $i=$_;map{join" ",@l[$i..$_]}$i..$#l}0..$#l) {
            delete $h{$k} unless $k eq $_;
        }   
    }   
}   
dd 'after', \%h;
__END__
(
  "before",
  {
    "automation"                    => 2,
    "automation technology"         => 2,
    "automation technology process" => 3,
    "creation"                      => 7,
    "mass creation"                 => 2,
    "process"                       => 6,
    "rendition"                     => 3,
    "saturation"                    => 3,
    "saturation process"            => 9,
    "technology"                    => 5,
    "technology process"            => 5,
  },
)
(
  "after",
  {
    "automation technology process" => 3,
    "mass creation" => 2,
    "rendition" => 3,
    "saturation process" => 9,
  },
)