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

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