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

while( my $line = <PAGE> ) {