Perl script has

use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Data::Dump qw(dump);
[download]

In a global block

my $q = CGI->new;
print '<!--', dump($q), "-->\n";
[download]

and a little later

if ($DEBUG) {
  print $q->hr;
  print $q->p('Debugging: '), $q->Dump, $q->hr;
}
[download]

and in particular there is a parameter being passed, "orderby", which is set to 10, e.g

<li><strong>orderby</strong></li>
<ul>
<li>10</li>
[download]

A couple of the parameters direct execution of a subroutine, and in that subroutine

  my $index = $q->param('orderby');
  my $desc = $q->param('desc');
  $index = 1 if not defined $index;
  print "\n<!-- variables (index, desc) are ($index, $desc) -->\n" if 
+$DEBUG;
[download]

but <!-- variables (index, desc) are (1, ) --> Why would index not be 10? What am I missing?