">
#### foreach my $value ($q->param('files234p')) { if ($value != 0) { my $filen = $qq->param('file'); print FOUT $filen," ",$value, "\n"; $i++; } } #### file1 1 file1 10 file1 1 it should be : file1 1 file2 10 file3 1