my %data;
foreach my $param ( param() ) {
    $data{$param}= param($param);
}