##
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