my %params;
for my $paramName ($query->param){
    $params{lc($paramName)} = $query->param($paramName);
}