for my $key (keys $results->{'ALLHOSTS'}){
    print Dumper($results->{'ALLHOSTS'}{$key}->{'ports'});
}