my $y = 0;

# ... Much code;

my @list = ();

# ... Much code

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

##</code><code>##

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