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};
    }
}