our $length=scalar @$val; for (0...$length-1) #### my @aoa = ('header',['html','head','body',], 'font',['font','face','size','color'], 'content',['h1','p','code']) #### my %hoa = ('header',['html','head','body',], 'font',['font','face','size','color'], 'content',['h1','p','code'])