Select Code to Download

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

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

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

for my $i (0 .. 146)

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

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