# don't do this
my @lines;
open(DATA, ">file1");
while (<DATA>) {
	push @lines, $_;
}
process(@lines);

open(DATA, ">file2");
@lines = <DATA>
while (<DATA>) {
	push @lines, $_;
}
process(@lines);