foreach my $param (qw( file1 file2 file3 file4 )) {
	my $file = $query->param('param');
	# everything else as before
}