my $ar = [ [ 'HEAD_goes_here', 'BODY_here' ],
           [ 'FOOT', 'FOOT', 'FOOT', 'FOOT' ]
];