Your recipients should be in @to which I would rename to @recipients and then:

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

sub mail {
  my $recipient = shift;
  …;
}
[download]

Add more args to your sub, like $from, $message, $transport etc.