Select Code to Download

{   my @store;

    sub put {
...

    sub get {
    return @store;    }}

%hash =(uno=>1, dos=>2);
put(%hash);
%hash=get();

my (@arr, $refarr);
$arr[0]=1;
$refarr=\@arr;

put($refarr);
$refarr=get();