Select Code to Download

$ perl -e '@arr = (1, 2, 3); print scalar(@arr), "\n"'
3
$ perl -e '@arr = (undef, undef, undef); print scalar(@arr), "\n"'
3