Select Code to Download

$in{'form-to'} .=  $in{'inputf1'} if $in{'inputf1'};

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 );

$in{'form-to'} .=  $in{'inputf1'} if $in{'inputf1'}; 
if($in{'ChkboxName1'}){
...
}

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