Select Code to Download

my @mail_groups = $q->param( 'mailgroup' );

my %group_addresses = (
...

my @mail_addresses = @group_addresses{ @mail_groups };
my $to = join(', ', grep { defined } @mail_addresses );