print TXT  "\nBOR $data->[3]|$data->[2]|$data->[9]|$data->[10]|$data->[4]|$data->[13]";