C:\test>type t-Moose.pl
#! perl -slw
use strict;

{
    package test;
    use Moose;
    has x => ( is => 'rw' );
    sub doit {
        my( $self ) = @_;
        print $self->{ x };
        print ${ $self->{ x } };
    }
}

our @c = 12345;
my $o = test->new( x => \$c[ 0 ] );
$o->doit;


C:\test>perl t-Moose.pl
SCALAR(0x229cd4)
12345