$ perl -le'my @a; print 0+@a; my @x = $a[0]; print 0+@a;'
0
0

##</code><code>##

$ perl -le'my @a; print 0+@a; \$a[0]; print 0+@a;'
0
1

$ perl -le'my @a; print 0+@a; 1 for $a[0]; print 0+@a;'
0
1

##</code><code>##

$ perl -le'my @a; print 0+@a; sub {}->( $a[0] ); print 0+@a;'
0
0