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