Abv Team
------------------
WSH Washington
BUF Buffalo
ANA Anaheim
CMB Columbus
NJ New Jersey
ATL Atlanta
MTL Montreal
####
for my $key (keys %teams)
{
print $key . " - " . $teams{$key} . "
\n";
}
####
while (my $row = $sql->fetchrow_hashref)
{
my %row_data;
$team = $row->{'Teams'};
$row_data{TEAM} = $teams{$team};
$row_data{GP} = $row->{'GP'};
$row_data{W} = $row->{'W'};
$row_data{L} = $row->{'L'};
$row_data{T} = $row->{'T'};
$row_data{OTL} = $row->{'OTL'};
$row_data{P} = $row->{'P'};
push(@table, \%row_data);
}
####
$row_data{TEAM} = $teams{$team};
####
$row_data{TEAM} = $team;
####
$row_data{TEAM} = $teams{"NYR"};