Select Code to Download

Abv   Team
------------------
...
NJ    New Jersey
ATL   Atlanta
MTL   Montreal

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

while (my $row = $sql->fetchrow_hashref)
{
...

  push(@table, \%row_data);
}

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

$row_data{TEAM} = $team;

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