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