@cols = (split(' ', $data, 4),
         (map scalar reverse, reverse split(' ', reverse($data), 4))[1..3]);