Just keeping it analogous to OP's example. Test code was this:

$ perl -wMstrict -MData::Dump=pp
sub has { print pp(@_),"\n" }
has   'friends' => ( is => 'rw',   isa => 'Array',   default => () );
has    friends  => ((is => 'rw'), (isa => 'Array'), (default => ()));
has    friends  =>   is => 'rw',   isa => 'Array',   default => ();
has    friends  =>   is =>  rw =>  isa =>  Array =>  default => ();
has   "friends",    "is",  "rw",  "isa",  "Array",  "default",  ();
has qw/friends       is     rw     isa     Array     default/,  ();
__END__
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
("friends", "is", "rw", "isa", "Array", "default")
[download]