my @t = qw/aA bB cC dD eE fF gG hH iI jJ kK lL mMmM nN oO pP qQ rR sS tT uU vV wW xX yY Zz/;
my $x = 0;
$x = length for @t[0 .. 1];
print $x;