my %ARGS;
   {
      my @temp = $state->{'r'}->param();
      foreach (@temp){
         $ARGS{$_} = (scalar(@{ [$state->{'r'}->param($_)] }) > 1 ? [$state->{'r'}->param($_)] : $state->{'r'}->param($_)) ;
      }
   }