my $filename = $q->param("file$i");
while(<$filename>)
{
    print FILE $_;
}