$in{'form-to'} .=  $in{'inputf1'} if $in{'inputf1'}; 
##</code><code>##

if($in{'ChkboxName1'}){

##</code><code>##

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

my %group_addresses = (
     group1 => 'group1@domain.com',
     group2 => 'group2@domain.com',
     group3 => 'group3@domain.com',
);

my @mail_addresses = @group_addresses{ @mail_groups };
push  @mail_addesses, $q->param('inputf-emailaddr') if $q->param('inputf-emailaddr');
my $to = join(', ', grep { defined } @mail_addresses );

##</code><code>##

$in{'form-to'} .=  $in{'inputf1'} if $in{'inputf1'}; 
if($in{'ChkboxName1'}){
$in{'form-to'} .= ',EmailGroup1@Domain.com';
}


if($in{'ChkboxName1'}){
$in{'form-to'} .= ',EmailGroup2@Domain.com';
}

if($in{'ChkboxName1'}){
$in{'form-to'} .= ',EmailGroup3@Domain.com';
}

$in{'form-to'} =~ s/^,//;