for my $index (0..9){
    $t[$_] += $data[$index][$_] for 0 .. 4;
}