Well the first thing is that along with the use MooX... line you're trying to set two different values for "Document", and have ended up with an unbalanced number of brackets. Perl is giving you some other warnings too, you should work through each of them and post code here that doesn't have any warnings left in it, unless you're really stuck on one of them specifically.

Okay, so here is your program pared down to its minimum, as a first step:

use strict;
use warnings;

# Create a Document struct with all elements writeable:
use MooX::Struct -rw, Document  => [ qw( $fileID $filename @tags ) ];

# Create two documents and put them in an array;
my $doc = Document[ 1, "PetsFile"];
my $doc2 = Document[ 2, "BirdsFile", ['Doves', 'Eagles']];
my @doc_list = ( $doc, $doc2 );

# Change the tags on both documents to prove they're writeable
$doc_list[0]->tags( [qw(Cats Dogs)] );
push @{$doc2->tags}, 'Shantaks';

# Display the result.  Notice that array indexes start at 0!
for (0..1) {
  printf "File ID:  %s\n", $doc_list[$_]->fileID;
  printf "Filename: %s\n", $doc_list[$_]->filename;
  printf "Tags:     %s\n", join(', ', @{$doc_list[$_]->tags});
  print "\n";
}

# But here is a nicer way, without indexes:
for my $d (@doc_list) {
  printf "File ID:  %s\n", $d->fileID;
  printf "Filename: %s\n", $d->filename;
  printf "Tags:     %s\n", join(', ', @{$d->tags});
  print "\n";
}
[download]