for my $h (@results) {
    print "{",
      (join ", ",
          map "'$_' => '$h->{$_}'", keys %$h),
      "}\n";
}