my @params;
foreach ( $q->param() ) {
    push @params, $_;
    push @params, $q->param($_);
}
my %param = @params;

##</code><code>##

foreach my $key ( keys %param ) {
    print FILE "$key\t$param{$key}\n";
    $email_content .= "$key:\t$param{$key}\n";
}

##</code><code>##

$email_content .= "email_address:\t$param{email_address}\n";