c:\@Work\Perl\monks>perl -wMstrict -le
"use List::Util qw(sum);
 ;;
 my @t = qw/aA bB cC dD eE fF/;
 my $x = sum map length, @t[0 .. 1];
 print $x;
"
4