OOPS! Really sorry about that last bit of code I suggested... it should have read:

...
   ($name,$score) = split(/,/);
   $scores{$name} = $score;
...
while (<TEAM>) {
   chomp;
   if (exists($scores{$_})) {
      print "$scores{$_} $_\n";
   } else { print "$_ is not listed in score file\n"; }
}
[download]