#!/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; 
}