foreach(sort keys %form) {
   print "$_ $form{$_} \n";
   }