switch_var $r, $v, my $w;
$w = 4;
@$r; # => ( 4, 4 );