#!/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