use List::Util 'sum';

@a = 1..10;
$sum = sum(@a);