@names=$query->param();
 foreach $key (@names)
     {
     $val=$query->param("$key");
      $hoh{$key}=$val;
     }