Select Code to Download

sub add_hash_slice{
  my $slice = shift or return undef;
...

#call
add_hash_slice( \@fields, \%totals, \%delta);

use PDL;

my $a = pdl $AoA;
$total1=sum($a->(':,0'));