my $query = join(';',
   map {
      my $k = shift @$_;
      join(';', map { uri_escape($k) . '=' . uri_escape($_) } @$_)
   }
   map { [$_, $CGI->param($_)] } $CGI->param()
);