my %params;
foreach my $param ($apr->param) {
   $params{ $param } = $apr->param( $param );
}