#!/usr/bin/perl
use strict;

use Data::Dumper;
use regression;

open (TEST,">xxx.txt");

my %test = ();

my @teams = ('packers','lions','bears','vikings');
my @data = (5,10,15,20);

my $counter = 1;
foreach my $team (@teams)
{
	my $counter2 = 0;
	foreach my $data_value (@data)
	{
		$test{$team}{'raw_data'}{$counter} = $data_value;
		print TEST "$team: $counter - $test{$team}{'raw_data'}{$counter}\n";
		$data[$counter2] = $data[$counter2] * 2;
		$counter2++;
		$counter++;
	}
}

close (TEST);