Next Pseudohashes 3

Perl objects are hashes

        if ($self->{TYPE} eq 'octopus') {
          $self->{tentacles} = 8;
          $self->{hearts} = 3;
          $self->{favorite_food} = 'crab cakes';
        }


Next 3