#! perl
use strict;
use warnings;
use List::Util      qw(sum);
use List::MoreUtils qw(natatime);

my @ints = (1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
            4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
            3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
            4, 4, 4, 4, 4, 4, 4, 4, 4, 4);

my $it = natatime 10, @ints;

while (my @vals = $it->())
{
    my $sum = sum @vals;
    print $sum, "\n";
}