my ($a, $b, $c) = (1, 2, 3);

##</code><code>##

my $a;
my $b = "";
print "\$a is not defined\n" unless defined $a;
print "\$b is defined\n" if defined $b;