sub f { %hash = (1,2,3,4); return \%hash }
*my_hash = f();
$my_hash{1}++;