Select Code to Download

#!/usr/bin/perl -w

...
    $decavg[$i] = $decavg[$i]/360;
    print "$decavg[$i]\n";
}

@decavg2d = ();

...
    print "$decavg2d[$i][$j]\n";
    }
}