open(DATA, ">", $txtfile) or die "File open error: $!";