Abv   Team
------------------
WSH   Washington
BUF   Buffalo
ANA   Anaheim
CMB   Columbus
NJ    New Jersey
ATL   Atlanta
MTL   Montreal

##</code><code>##

for my $key (keys %teams)
{
  print $key . " - " . $teams{$key} . "<BR>\n";
}

##</code><code>##

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);
}

##</code><code>##

$row_data{TEAM} = $teams{$team};

##</code><code>##

$row_data{TEAM} = $team;

##</code><code>##

$row_data{TEAM} = $teams{"NYR"};