Select Code to Download

my $cnt_keepers=0;
while (my $ln = <$f>) {
...
    }
    ...
}

my @records;
while (my $ln = <$f>) {
...
        @records = ();
    }
}