#! /usr/bin/perl -wl

use strict;

my @nums = qw/ 1 2 3 4 5 /;

my $sum = do { my $x; $x += $_ for @nums; $x };

print $sum;