our $length=scalar @$val;
 for (0...$length-1)
##</code><code>##

my @aoa = ('header',['html','head','body',], 
           'font',['font','face','size','color'], 
           'content',['h1','p','code'])

##</code><code>##

my %hoa = ('header',['html','head','body',], 
           'font',['font','face','size','color'], 
           'content',['h1','p','code'])