my @smtp = map { Net::SMTP->new($_) } qw/my.mailserver.ca some.other.server.com/;