14:44:42 ~/perl/source $ perl -w array
4
14:44:49 ~/perl/source $