%ha = $obj -> passhash;
foreach $key (keys (%ha)){
    if ($key eq "problem2"){
        foreach (@ha{$key}){
            print "array : @{$_}\n";
        }
    }
}