foreach my $file (@articles) {
     my $article = XMLin($file, NoAttr => 1);
     use Data::Dumper;
     print "<pre>", Dumper(\$article), "</pre>";
   }