my $recs = $dbh->selectall_arrayref( $sql );
  my @people;
  foreach my $rec ( @$recs ) {
    my $i = 0;
    my $person = Person->new();
    foreach my $meth ( map { $person->can($meth) } qw( name hight weight age gender dob ) ) {
       $person->$meth( $rec->[$i++] ) if $meth;
    }
    push @people, $person;
  }