or download this
my @mail_groups = $q->param( 'mailgroup' );
...
my @mail_addresses = @group_addresses{ @mail_groups };
push @mail_addesses, $q->param('inputf-emailaddr') if $q->param('inpu
+tf-emailaddr');
my $to = join(', ', grep { defined } @mail_addresses );