Select Code to Download

my $y = 0;

...

my $x = @list && $y;
# if $x is 0, did it come from @list or $y?

sub sub1 {
    # ...
    my $x = <some condition> ? $y : undef;
    # ...
}