Cephalic

my $bodyparts =
  {
   head => {default => [['','   O   ']],
            leftright => [['','   O   '],
                          ['','   o   '],
                         ]
           },
   body => {
            default => [['','','   Z   ']],
            spin => [
                     ['','','   Z   '],
                     ['','','   z   '],
                     ['','','   Z   '],
                     ['','','   z   '],
                     ['','','   Z   '],
                     ['','','   Z   '],
                     ['','','   Z   '],
                     ['','','   Z   '],
                    ]
           },
   arms => {
            default => [['',
                         '       ',
                         ' ./ \. '
                        ]
                       ],
            flap => [
                     ['',
                      '       ',
                      ' ./ \. '
                              ],
                     ['','.__ __. ',
                     ],
                    ],
            feelie => [
                       ['',
                        '       ',
                        ' ./ \. '
                       ],
                       ['',
                        '       ',
                        ' ,/ \, '
                       ],
                    ],
            curl => [
                     ['       ',
                      '       ',
                      ' ./ \. '
                     ],
                     ['       ',
                      '.__    ',
                      '    \. '
                     ],
                     ['   .   ',
                      '  (    ',
                      '    \. '
                     ],
                     ['       ',
                      '.__    ',
                      '    \. '
                     ],
                     ['       ',
                      '       ',
                      ' ./ \. '
                     ],
                     ['',
                      '    __.',
                      ' ./    '
                     ],
                     ['   .   ',
                      '    )  ',
                      ' ./    '
                     ],
                     ['',
                      '    __.',
                      ' ./    '
                     ],
                    ],
            wave => [
                     ['   .   ',
                      '.__ )  ',
                     ],
                     ['     . ',
                      '.__ /  ',
                     ],
                     [' .     ',
                      '  \ __.',
                     ],
                     ['   .   ',
                      '  ( __.',
                     ],
                     [' .     ',
                      '  \ __.',
                     ],
                     ['     . ',
                      '.__ /  ',
                     ],
                    ]
           },
   legs  => {
             default => [['','','','  / \  ']],
             wobble => [['','','','  / \ '],
                        ['','','','  ( )  '],
                        ['','','','  / \  '],
                        ['','','','  ) (  ']
                       ],
             strut => [
                       ['','','','  ( \  '],
                       ['','','','  / )  ']
                      ]
            }
  };