print Dumper( $data );

##</code><code>##

my @authors = @{$data->{Article}{AuthorList}{Author}};

print Dumper( \@authors );