Help for this page

Select Code to Download


  1. or download this
    # Initial values
my @arr = (1,2,3,  4,5,6,  7,8,9);
...
# Sum up each array ref
use List::Util qw(sum);
my @a3 = map { sum @$_ } @a2;
  2. or download this
    @a3 = ('6', '15', '24');
  3. or download this
    use List::Util qw(sum);
push @a3, sum @arr[$_*3, $_*3+1, $_*3+2] for (0..$nblk-1);