#!/usr/bin/perl -w

#use strict
open (TEST,">test.txt");

my ($team,$points,$tallies,$scores,$metrics);

my %teamStats = ();

open (STATS,"<testData.txt");

while (<STATS>)
{
	@stuff = split(/\s+/,$_);
	
	$team = $stuff[0];
	$points = $stuff[1];
	$tallies = $stuff[2];
	$scores = $stuff[3];
	$metrics = $stuff[4];
	
	unless ($teamStats{$team})
	{
		$teamStats{$team} = {};
	}
	&fillTeamHash($teamStats{$team},$points,$tallies,$scores,$metrics);
}
#while(($key, $value) = each(%HASH)) {

foreach $team (keys %teamStats)
{
	print "\n\nTeam:\t$team\n";
	#@pointsArray = $teamStats{$team}{'pointsArray'};
	#foreach $item (@pointsArray)
	#foreach $item ($teamStats{$team}{'pointsArray'})
	#{
	#	print "$item\n";
	#}
}


close (TEST);


sub fillTeamHash
{
	my ($teamHashPtr,$points,$tallies,$scores,$metrics) = @_;
	
	#$pointsArray = $$teamHashPtr{'pointsArray'};
	#$talliesArray = $$teamHashPtr{'talliesArray'};
	#$scoresArray = $$teamHashPtr{'scoresArray'};
	#$metricsArray = $$teamHashPtr{'metricsArray'};
	
	#print "In sub:\t$points\n";
	
	#push (@$pointsArray,$points);
	push (@$$teamHashPtr{'pointsArray'},$points);
	#foreach $item (@$pointsArray)
	foreach $item (@$$teamHashPtr{'pointsArray'},$points)
	{
		#$size = @$pointsArray;
		$size = @$$teamHashPtr{'pointsArray'};
		print TEST "Array Size:\t$size\t";
		print TEST "Printing points array:\t$item\n";
	}
	#push (@$talliesArray,$tallies);
	#push (@$scoresArray,$scores);
	#push (@$metricsArray,$metrics);
}