Select Code to Download

foreach ($i = 1; $i < 10; $i++) {
    ${"record$i"} = $i * $i;
}

for (1 .. 10) {
    push @records, $_ * $_;
}
...
foreach my $record (@records) {
    print $record, "\n";
}

my $var1 = $query->param('var1');
my $var2 = $query->param('var2');
my $var3 = $query->param('var3');
...
my $var8 = $query->param('var8');
my $var9 = $query->param('var9');
my $var10 = $query->param('var10');

$report = generate_report($foo);
open(FILE, ">>report.txt") or die "blah!";
print FILE "Report number: $i";
...
@report_lines = split(/\n/, $report);
print FILE $report_lines[0];
# you see where this is going

my %vars;
for (1 .. 10) {
    $vars{"var$_"} = $query->param("var$_");
}

# change the form to use multiple selections with the same name
my @vars = $query->param('var');
# valid if you have a combobox or checkbox group

{
    my $num_displayed = 0;

...
}

}    # end of enclosing scope for $num_displayed