Don Federico Jesus Pichon Alvarez is age 47.
His peers are: PEON=FRANK, PEON=FELIPE, PEON=FAUST
here is the boss
$VAR1 = bless( {
                 'ID' => undef,
                 'PEERS' => [
                              'Frank',
                              'Felipe',
                              'Faust'
                            ],
                 'NAME' => undef,
                 'AGE' => 47,
                 'SALARY' => 40000,
                 '_CENSUS' => \1,
                 'FULLNAME' => bless( {
                                        'SURNAME' => 'Pichon Alvarez',
                                        'TITLE' => 'Don',
                                        'CHRISTIAN' => 'Federico Jesus',
                                        'NICK' => 'Fred'
                                      }, 'Fullname' )
               }, 'Boss1' );
Destroying $self Fred at ./testboss1.pl line 0
All persons are going away now