Select Code to Download

#! /usr/bin/perl -wl

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

print $sum;