Project Euler 28

PE28.pl

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use List::Util qw/sum/;

my $i;
my $res = 0;
for($i=1; $i<=999; $i+=2){
    $res += sum( map{ $i**2 + ($i + 1) / 2 * 2 * $_ } 0..3 );
}
print $res + $i**2, "\n";
# => 669171001