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