@a = (1..10); $sum += $_ for @a;