foreach (keys %{$curr{"my"}->[2]}){
            print  $_, " ", $curr{"my"}->[2]{$_}, " ";
    }
    print "\n";