my %ARGS; { #Localize @temp since I won't need it later my @temp = $state->{'r'}->param(); foreach (@temp){ $ARGS{$_} = $state->{'r'}->param($_); } } #### my @schedules = $state->{'r'}->param('browseselect'); return qq~~.Dumper(@schedules).qq~~; #### my %ARGS; { my @temp = $state->{'r'}->param(); foreach (@temp){ $ARGS{$_} = (scalar(@{ [$state->{'r'}->param($_)] }) > 1 ? [$state->{'r'}->param($_)] : $state->{'r'}->param($_)) ; } }