sub get_hash { my %h; ... ;return \%h}
my (*h2)= get_hash();         #I'm not sure about the best syntax
print keys %h2;

##</code><code>##

¥hash{key1}{key2}=$hash{key1}{key2};

€arr1[0]=€arr2;
# =>
    €arr1[0][0] == €arr2[0];

push €arr1[0], "string";
# =>
     pop €arr2 == "string";