#!/usr/bin/perl

use strict;
use warnings;
my $input = $ARGV[0];
my $x = 0;
my $y = 0;
my $zeroed_x = 0;
my $zeroed_y = 0;
my $binned_x = 0;
my $binned_y = 0;
my @binarray = ();

open(INPUT, "$input") || die "Oops! Can't open INPUT file: $!\n";

while(<INPUT>)
{

    $x = substr($_, 0, 6);
    $y = substr($_, 7, 6);
    $zeroed_x = ConvertToFromZero($x);
    $zeroed_y = ConvertToFromZero($y);
    $binned_x = BinAngles($zeroed_x);
    $binned_y = BinAngles($zeroed_y);

    $binarray[$binned_x][$binned_y]++;

}

for(my $i = 0; $i < @binarray; $i++)
{
    for(my $j = 0; $j < @binarray; $j++)
    {
	print "$binarray[$i][$j]\n";
    }
}


######################################################

sub ConvertToFromZero
{

    my ($axis) = @_;
    my $zeroed_axis = 0;

    $zeroed_axis = 180 + $axis;
    return($zeroed_axis);


}

#######################################################

sub BinAngles
{

    my ($axisforbin) = @_;
    my $binnedaxis = 0;

    $binnedaxis = int($axisforbin/5);
    return($binnedaxis);


}