@cols = ((split(' ', $data, 4))[0..2], reverse map scalar reverse, split ' ', reverse((split ' ', $data, 4)[-1]), 5);