Select Code to Download

package Nation {
  use Moose;
...
  has name => (is => 'ro', isa => 'Str');
  ...;
}

use List::MoreUtils qw(part);

...

# Set the population to just the people we want to keep.
@{ $people->population } = @$keep;