push @data, "\nBOR ", join("|", @data[3,2,9,10,4,13]);