package Person;

sub init {
    ...
    $self->set_title($title)
         ->set_first_name($first)
         ->set_last_name($last);
    ...
}

##</code><code>##

sub mail_customers {
    foreach my $customer (@customers) {
        ...
        my $mail_address = $customer->get_address->as_string;
        ...
    }
}

##</code><code>##

    $stats{ $customer->address->postcode }++; # zip codes

##</code><code>##

foreach my $customer(@customers) {
    next if ! valid_mail_recipient($customer);
    eval {
        mail_customer($customer);
    };
    if ($@) {
        ...
    }
}