my $smtp1 = Net::SMTP->new('my.mailserver.ca');

##</code><code>##

 
my @smtp = (Net::SMTP->new('my.mailserver.ca'),...etc);