foreach my $arr_ref (@$ha{'problem2'}) {
  print "subarray: @{$arr_ref} \n";
}