foreach my $param (@params) { ... }
foreach my $file (@files) { ... }

##</code><code>##

foreach $x (@params) { ... }
foreach $i (@files) { ... }

##</code><code>##

$x=$&;
print OUTPUT "$x\n";