my @sums;
for my $ref ( @data ) {
    $sums[ $_ ] += $ref->[ $_ ] for 0 .. $#$ref;
}
$sums[ $_ ] /= @data for 0 .. 3;