while (my ($key, $value) = each %{$data->{blah}[$idx]{blih}}) {
  print "$key : $value\n";
}