my @sums;
for my $i ( 0 .. $#data ) {
    $sums[ 0 ] += $data[$i][ 0 ];
    $sums[ 1 ] += $data[$i][ 1 ];
    $sums[ 2 ] += $data[$i][ 2 ];
    $sums[ 3 ] += $data[$i][ 3 ];
}
$sums[ $_ ] /= @data for 0 .. 3;