Select Code to Download

my %shortlist;
for my $key (keys $results->{'ALLHOSTS'}){
...
        $shortlist{"$results->{'ALLHOSTS'}{$key}{'ports'}{'tcp'}{$key2
+}{'service'}{'name'}"} = $results->{'ALLHOSTS'}{$key}{'ports'}{'tcp'}
+{$key2}{'state'};
    }
}