use strict;
use warnings;
use List::Util qw(sum);

my @array = ( 1..5 );

print sum ( @array ), $/;