use MooX::Struct -rw, Person => [qw( $name @addresses )];