foreach my $param ( $q->params )
should be
foreach my $param ( $q->param )