print $w_fh $_,"\n" for(@lines)