All you need to do is dereference the hash before passing it to keys or each. Try this:

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

Good luck!

Ira,