perl -e 'my @a="aa".."zz"; print "Length=".@a;'