for my $foo (@bar) {
  print keys (%$foo), "\n";
}