#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

package myparent;
{
    sub new
    {
        my $class = shift;
        my $self = { };
        bless $self, $class;
        $self->{listref} = eval '$' . $class . '::listref';
        return $self;
    }
}

package mychild;
{
    use base 'myparent';
    
    our $listref = [ 1, 2, 3 ];
}

package main;
{
    my $obj = mychild->new;

    print Dumper $obj;
}
