package Demo;

use Moose;

has test => (is => 'rw', isa => 'ArrayRef');

sub check {
    my ($self) = @_;

    $self->test(());

    $self->test()->[0] = 'X';
}   

package main;

Demo::->new->check;