Select Code to Download

my @outfile;
while (<INFILE>) {
...
foreach my $line (@outfile) {
    print OUTFILE $line;
}

while (<INFILE>) {
    # Process stuff here.
    print OUTFILE $newline;
}