foreach my $key (keys(%$results)) {