Select Code to Download

my @x;
sub foo :lvalue {
...
        return $x[0];
    }
}

my @x;
sub foo :lvalue {
...
    }
    $$lvalue;
}

my @x;
sub foo :lvalue {
...
    my $lvalue;
    ($cond) ? $x[$i] : $x[0];
}

our @fields;
BEGIN { @fields=qw(one two three) }