sub switch_var {
    alias $_[0][0] = $_[2];
}
switch_var $r, $v, my $w;
$w = 4;
@$r; # => ( 4, 3 )