my $i=0 , @X ;

##</code><code>##

my $i=0 , @X;
print "\@X is a global!\n" if defined $main::{X};
__END__
@X is a global!

##</code><code>##

my ($i, @X) = 0; # $i gets the zero, @X gets nothing

##</code><code>##

my $i = 0;
my @X;