Select Code to Download

perl -e ' my @a=(1,1,1,1,1,1,1,1); $i=0; for my $id(@a){ print $i; $i+
++; } '

outputs
01234567

perl -e ' my @a=(1,1,1,1,1,1,1,1); my $i= @a; print "$i\n"; '

outputs
8