my @to = ('some@domain.ex', 'body@domain.ex');
sub Smtp # ...
{
#...
$smtp->to(@to);
#...
}