$a = 6;
*b = \ $a;
$b = 5;
print $a;  # prints 5

@a = (1, 2, 3);
*b = \ @a;
pop @b;
print "@a"; # prints 1 2