to walk inside the hash, use the keys function. For example:

for my $key (keys(%{$results})) {
  print Dumper $result->{$key};
}
[download]