@decavg2d = ();

for ($i=0,$i<147,$i++) {
    for ($j=0,$j<360,$j++) {
	$decavg2d[$i][$j] = 0;
    }
}

for ($i=0,$i<147,$i++) {
    for ($j=0,$j<360,$j++) {
	$decavg2d[$i][$j] += $decavg[$i];
	print "$decavg2d[$i][$j]\n";
    }
}