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

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