Select Code to Download

foreach my $record (@records) {
        foreach my $key (keys %$record) {
...
            print $q->br;
        }
    }

 foreach my $record (@records) {
        foreach my $key (keys %$record) {
...
        }
    }