RefTest.pl

#!/usr/bin/env perl
package Coffee;
use Moose;

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

__PACKAGE__->meta->make_immutable;

no Moose;

sub list {
    my $self = shift;
    my $beans = $self->beans;
    foreach my $bean (@$beans) {
        print "list :: $bean\n";
    }
}


1;

package main;
use strict;

my @arr = ['hoge', 'fuga'];
my $c = Coffee->new(beans => @arr);
$c->list;