#!/usr/bin/perl -w

use FileHandle;

$fh = new FileHandle "/data/jkerwin/muskyoutput/ravsdec.dat";
die "Can't open RAvsDEC file" unless (defined($fh));
@decavg = ();
$i=0;
$j=0;
@line=();
for ($i=0,$i<147,$i++) {
    $decavg[$i] = 0;
}

while (defined($strip = <$fh>)) {
    ($var1) = (split(/\s+/, $strip))[0];
    ($var2) = (split(/\s+/, $strip))[1];
    ($var3) = (split(/\s+/, $strip))[2];
    $line[0] = $var1;
    $line[1] = $var2;
    $line[2] = $var3;
    $decavg[$line[0]] += $line[2];
}

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