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