Select Code to Download

#! perl -sl
use List::Util qw[ sum ];
...
our $N //= 10;

print sum( 1 .. $N );

#! perl -sl
#use List::Util qw[ sum ];
...
my $t = 0;
$t += $_ for 1 .. $N;
print $t;

[16:27:32.60] C:\test>for /l %i in (1,1,10) do WithListUtil.pl -N=3
[16:27:55.68] C:\test>WithListUtil.pl -N=3
...
[16:28:22.80] C:\test>WithoutListUtil.pl -N=3
[16:28:22.84] C:\test>WithoutListUtil.pl -N=3
[16:28:22.88] C:\test>