my @arry = (1..10);

my $sum = 0;
$sum += pop @arry while @arry;

print $sum,$/;