perl -wMstrict -E 'my $x = defined $ARGV[5]; say defined $x'
1

##</code><code>##

my $x = defined $x || defined $y;

##</code><code>##

die "blah...\n" if ! $x;

##</code><code>##

die "blech...\n" if ! defined $x || defined $y;