my %params; # declare a hash to hold the params later
if ($ENV{REQUEST_METHOD} eq 'GET' && $ENV{QUERY_STRING} ne '') {
 ....
 foreach .... {
   my($name, $value) = split .... # get the name and value
   ..... # cleaning name and value
   $params{$name} = $value; # hash assignment
 }
}