my @sum;
for my $row (@aoa) {
   for (@{$aoa[$row]}) {
      $sum[$col] += $_;
   }
}

for (@sum) {
   $_ /= @aoa;
}