...
while my $key,$value = each %FORM {
print MAIL "$key\< $value\<n";

}

close MAIL;