my @x;
sub foo :lvalue {
    my ($cond, $i) = @_;
    my $lvalue;
    if ($cond) {
        $lvalue = \$x[$i];
    } else {
        $lvalue = \$x[0];
    }
    $$lvalue;
}