@arr=(1,2,3);
$arr_r=\@arr;
print("accessing ref: @{$arr_r}\n");
print("referrence looks like: $arr_r\n");
undef @arr;
print("accessing ref 2nd time: @{$arr_r}\n");
print("referrence now looks like: $arr_r\n");