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