($var1) = (split(/\s+/, $strip))[0];
($var2) = (split(/\s+/, $strip))[1];
($var3) = (split(/\s+/, $strip))[2];
$line[0] = $var1;
$line[1] = $var2;
$line[2] = $var3;

##</code><code>##

@line = split(/\s+/, $strip);

##</code><code>##

for ($i=0,$i<147,$i++)

##</code><code>##

for my $i (0 .. 146)

##</code><code>##

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

##</code><code>##

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