#!/usr/bin/perl -wT
use strict;
use CGI qw(:standard escapeHTML);

use vars qw ( way too many of them);

my $query = CGI->new();
@names = $query->param;

... (preparatory material including a heredoc for the top of the page to be returned)

foreach $name (@names) { @values = $query->param( $name );
   for $values(@values) {       
      if ( $values[1] =~ /^0$/ ){ last; }       # Note 1
      &untaint($name, $values );
      
      # ... Test and print html-table rows, if $values[1] != 0
      }
   }
}


##</code><code>##

I0=nameofplant Q0=\d+ P0=\d+\.[\d]{2} IT0=\d+\.[\d]{2}
I1=anotherplant Q1=\d+ P1=\d+\.[\d]{2} IT1=\d+\.[\d]{2}
etc...

##</code><code>##

my $query = CGI->new();
@names = $query->param;
...
NAMES: for $name (@names) {
   $values = $query->param( $name );
   if ( $flag == 0 ) {     #set the first time thru for special purpose data
      &checkacct();        # which is formatted differently than the rest...
      next NAMES;
   
   } else { 
      &untaint( $name, $values );
      &tohtml( $name, $values  );
   }
}


##</code><code>##

if ( $name =~ /^I\d+$/ && $values =~ /[A-Za-z\s_\'\-\.]+/ ) { #I\d+                                     
            print "<tr>\n<td><input type='hidden' name=\"" . $name . "\" value=\"" . $values . "\"><span class='b'>" . $name . "</span> &nbsp; " . $values . "<\/td>\n";     # start new row
            next;

      } elsif ( $values =~ /^[\d]+$/ && $name =~ /^Q\d+$/ ) {    # Q0,Q1
            print "<td style='text-align:center;'><input type='hidden' name=\"" . $name . "\" value=\"" . $values . "\">Quant: <span class='b'>" . $values . "</span></td>\n";
            next;
      # plus 4 more for P\d+ and IT\d+ cases and another pair of special cases


##</code><code>##

"<tr><td>ID: " . $name . " $values "; #(where the inner loop is at [0])
" </td><td>Quantity: " . $values[1];