for my $key (keys %$results) {
...
}