while( <IN> ) {...

##</code><code>##

if(/POLY/) {
    $final_gset[$i] = <IN>;
...