my $player_count = 0;

open(IN, "players");
while(<IN>){
  ($player,$years) =split /\t/;
  my($start,$end) = split /\-/,$years;
  $player_count++;
  foreach my $year ($start..$end){
    push @{$games[$year]},$player_count;
  }
}