11_new.pl

package Starship;
use Moose;

has 'captain', is => 'ro', isa => 'Str', required => 1;
has 'crew', is => 'rw', isa => 'ArrayRef[Str]', required => 1;

package main;

# Pass a hash ref to prevent copying
my $enterprise = Starship->new( {
        captain => 'James T Kirk',
        crew    => ['Dr. McCoy', 'Scott', 'Lt. Uhura'],
    });