#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(:standard *ul);

print header;

my $count;
unless ($count = param('xxxc')) {
  print b("There's no count for you");
  exit;
}

print b("We have $count input(s) as the following:"), start_ul;
my %inputs;
for my $i (1 .. $count) {
  my $field = "xxx$i";
  my $value = param($field);
  $value = 'yes!' unless defined $value;
  $inputs{$field} = $value; # stored for later use
  print li("$i = $value");
}
print end_ul;

# use %inputs for whatever you like
[download]

We have 4 input(s) as the following:

    * 1 = Perl
    * 2 = for
    * 3 = all
    * 4 = yes!
[download]

Anyhow it is far better to rely on CGI.pm (or its brethren such as CGI:Simple) to do the parsing.

And in order to sequentially access the parameters just sort the key-values of the parameter-hash and use that sorted list to go through the values of the parameters.

And in order to sequentially access the parameters just sort the key-values of the parameter-hash and use that sorted list to go through the values of the parameters.

... just to extend that - "sort numerically", as in

perl -le 'print for sort {$a <=> $b} qw(bbb1 aaa2 ccc3 xxx15 def159)'
bbb1
aaa2
ccc3
xxx15
def159
[download]

So the snippet would be

foreach my $key ( sort {$a <=> $b} $q->param() ) {
    my $value = $q->param($key);
    # now do whatever with $value
    ...
}
[download]

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Do you mean something like:

use strict;
use warnings;

my $my_input = 'xxxc=2&xxx1=val1&xxx2=val2';
my @fv_pairs = split /\&/ , $my_input;
my %INPUT;

foreach (@fv_pairs) {
    my ($field, $value) = split /=/, $_, 2;
    
    next unless defined $value;
    $value =~ s/\+/ /g;
    $value =~ s/%(\dA-Fa-f{2})/pack("C", hex($1))/eg;
    $INPUT{$field}=$value;
}

print join "\n", map {"$_ => $INPUT{$_}"} sort keys %INPUT;
[download]

Prints:

xxx1 => val1
xxx2 => val2
xxxc => 2
[download]

First, don't process the QUERY_STRING by hand! Let CGI do that. For instance, parameters might get passed using ';' as a separator rather than '&'. See Ovid's CGI Course for more on that.

That said, the following would do

use CGI;
my $q = CGI->new;

my @list  = map { $q->param('xxx'.$_) } 1 .. $q->param('xxxc');
# values now sequential in @list.
[download]

For not duplicating the values into @list, use

foreach my $index (1 .. $q->param('xxxc') ) {
    my $value = $q->param('xxx' . $index);
    # now do whatever with the value
    ...
}
[download]

If you absolutely want your %INPUT hash, you get it populated with

%INPUT = $q->Vars;
[download]

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}