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  );
   }
}