sub new {
  my $self = bless {}, shift;
  @$self{'PEERS', 'NAME', 'AGE'} = [];
  return $self;
}