Select Code to Download

package Person;

...
         ->set_last_name($last);
    ...
}

sub mail_customers {
    foreach my $customer (@customers) {
...
        ...
    }
}

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

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