#!/user/bin/perl

use strict;
use warnings;

my @array = (1,2,3,4,5,6,7,8,9,10);

my $sum = 0;
grep{$sum += $_} @array;

print "\$sum = $sum\n";

exit(0);

##</code><code>##


$sum = 55