Select Code to Download

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

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

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