package Grouch;
use strict;

@Grouch::ISA = qw(Person);

sub new {
    my $class = shift;
    $class = ref($class) || $class;

    my $self = {};         # The new object is represented by a hash
    $self->{NAME} = undef;
    $self->{AGE} = undef;
    $self->{FRIENDS} = [];
    bless ($self, $class); # This says the object $self belongs to the
                           # specified class.
    return $self;
}

sub friends {
    my $self = shift;
    return $self->{FRIENDS};
}