print join (";",@$_),"\n"for(@lines); #line 19
print $w_fh join (";",@$_),"\n"for(@lines); #line 22