for my $recipient(@recipients) {
    mail($recipient);
}

sub mail {
  my $recipient = shift;
  …;
}