if ($key eq "problem2"){
        foreach (@ha{$key}){
            print "array : @{$_}\n";