Accessors the Easy Way

package Person;

use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_accessors(qw(
  first_name
  surname
  phone_number
  email_address
));

sub new {
  # ...
}