$in_filename = "graph_set.txt";		
open (IN,"$in_filename") or die "Can't open $in_filename:$!\n";

my $i; 
LOOP: while (<IN>)
{
   if (/POLYMORPH/)
   {
    my $tmps = <IN>;
   ($final_gset[$i]), $tmps; 
   } 
}
close (IN);

open (TEXT, ">>test.txt") or die "Can't create test.txt: $!\n";
foreach $_(@final_gset) { print TEXT "$_\n"; }
close TEXT;