for $key (keys %FORM) {
  print "The name $key has the value $FORM{$key}\n";
}