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