foreach my $value ($q->param('files234p')) {
         if ($value != 0) {
          my $filen = $qq->param('file');
          print FOUT $filen," ",$value, "\n";
          $i++;
         }
     }