my $x = 1;
my $y = 2;
{
    my (0?$x:$y) = 3;
    print "x=$x\ny=$y\n"
}