my @x =
('cat1',
  ['cat1,sub1',
    ['cat1,sub1,sub-sub1'],
   'cat1,sub2'],
 'cat2',
 'cat3',
  ['cat3,sub1'],
);