for my $outer (0..9) {
  for my $inner (0..4) {
    $t[$inner] += $data[$outer][$inner];
  }
}
[download]