sub new {
    my $class = shift;
    my $self = {};
    my $self->{parent} = undef; # <<< you "my" $self twice!
    bless $self, $class;
    return $self;
}