use PDL;

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