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