steve@kirk:~$ perl -wle'push @foo, undef for (0..6); print scalar @foo'
7