Actually, you can do it just as you described. Just pass an array to the "to" method...

my $smtp = Net::SMTP->new($srv);
$smtp->mail('root@localhost');
$smtp->to(@emails);
$smtp->data();
$smtp->datasend("Your data goes here.\n");
....
[download]

Hope this helps..
Rich