Select Code to Download

%ha = $obj -> passhash;
foreach $key (keys (%ha)){
    if ($key eq "problem2"){
...
        }
    }
}

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

my %hash;
@hash{qw/one two three/} = qw/1 2 3/;