use CGI qw(param);
my %ParamSaver = map { $_ => [param($_)] } param();

##</code><code>##

# presume %ParamSaver has been fetched...
use CGI qw(param delete_all);
delete_all(); # reset all parameters
for (keys %ParamSaver) {
  param($_, @{$ParamSaver{$_}});
}