or even:

my @smtp = map { Net::SMTP->new($_) } qw/my.mailserver.ca some.other.s
+erver.com/;
[download]