Select Code to Download

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

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

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