foreach my $key(keys(%FORM)){
  print MAIL $key,":\t",$FORM{$key},"\n";
}