sub intelligence {
    my Dog $self = shift;
    $self->{inteligence}; # typo
}