my %Params;

if($Query->param) {

  %Params = $Query->Vars;
}

##</code><code>##

while (my ($key, $value) = each %Params) {

   my $$key = $value;

}