while (<FILE>){
                my @arr_hold=$_;
                foreach my $guide (@arr_hold){
                        if ( $guide =~ /PAGE:   2/){
                                $var = 1;
                        }
                        if ($var == "1"){
                                print FILE2 "$guide";
                                push (@new_arr,$guide);
                        }
                }
                foreach (@new_arr){
                print $_;
                }
        }