Converting collection to individual

BinderItem.pm

has 'Title' => (
     isa         => 'Scrivener::Title',
     is          => 'ro',
     traits      => [qw(XML)],
     lazy        => 1,
     description => {
        LocalName => "Title",
        Prefix => "",
        node_type => "child",
        Name => "Title",
        NamespaceURI => "",
        sort_order => 7,
     },
);

BinderItem.pm.orig

has 'Title_collection' => (
     isa         => 'ArrayRef[Scrivener::Title]',
     is          => 'ro',     init_arg    => 'Titles',
     traits      => [qw(XML Array)],
     lazy        => 1,
     auto_deref  => 1,
     default     => sub { [] },                                                        
     handles    => { add_Title => ['push'] },     description => {
        LocalName => "Title",
        Prefix => "",
        node_type => "child",
        Name => "Title",
        NamespaceURI => "",
        sort_order => 7,
     },
);