if ($q->param('submit1') eq 'submit1') {
    $index="Some val";
    print "DEBUG after 1st submit " . $index . "<br>";
    print $q->hidden('index', $index);
    print $q->submit(-name=>"submit2",
         -label=>"submit2") . " ",
}