Select Code to Download

  $player = { grep $_->number() eq $n) $team->players();
  print "Player $n is ", $player->name(), "\n" if $player;