foreach my $key (keys %{$data->{blah}[$idx]{blih}}) {
  my $value = $data->{blah}[$idx]{blih}{$key};
  ...
}