for my $i (0 .. 146) {
    for (@decavg2d[$i][0 .. 359]) {
        $_ += $decavg[$i];
        print "$_\n";
    }
}