Assumes grep's code

my %parameters;
my @inputs = $q->param;

    foreach $item (@inputs){    
        $parameters{$item} = $q->param($item);
    }
[download]

C-.