my @outfile;
while (<INFILE>) {
    # Process stuff here.
    push @outfile, $newline;
}

foreach my $line (@outfile) {
    print OUTFILE $line;
}

##</code><code>##

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