c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 use List::Util qw(sum reduce);
 ;;
 my $n = 15;
 dd                1 .. $n;
 dd     map $_**2, 1 .. $n;
 dd sum map $_**2, 1 .. $n;
 ;;
 use vars qw($a $b);
 dd reduce { $a + $b**2 } 1 .. $n;
"
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)

(1, 4, 9, 16, 25, 36, 49, 64, 81, 100, 121, 144, 169, 196, 225)

1240

1240

##</code><code>##

 for ('$i=0; <= $n; $i++')
{
 $sum += $i;
}