In the first line after your open, you do @prep=<PAGE>;. This reads your whole file into the array @perp. You then completely ignore this array and attempt to process the file line by line with while( my $line = <PAGE> ) { but you have already read the whole file, so there is nothing left to read. Try commenting out (or simply deleting) that first line after the open and see what difference that makes.

open (PAGE, "$prepage") || die "Couldn't get prepage ched";
@prep=<PAGE>;  # <<<< Why????

while( my $line = <PAGE> ) {
[download]