Select Code to Download

[ ~/tmp ] $ cat return_multi_refs 
# return_multi_refs
...
    )} keys(%{$_[0]});
    die $@ if $@;
}

[ ~/tmp ] $ perl return_multi_refs 
scalar1 [Scalar the First]
...
array1[1]  [b]
array2[2]  [z]
[ ~/tmp ] $