This will work only for SINGLE-values

foreach my $n ($query->param) {   $param{$n} = $query->param($n);   }
[download]

try this too:
my( %param )= @_;

CSUhockey3