same untested code but written into one line :)

my %params = map {(lc($_)=>$query->param($_))} $query->param;
[download]

(personally I tend to write similar code this way)

Best wishes
Weasel