{   my @store;

    sub put {
	@store =  @_;}

    sub get {
	return @store;    }}


##</code><code>##

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

##</code><code>##

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

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