@cols = split(' ', $data, 4);
@cols[7,6,5,4,3] = map scalar reverse, split ' ', reverse($cols[3]), 5;