perl -e 'my $len=@("aa".."zz");print $len;'