#!/usr/bin/perl

use warnings;
use strict;

use XML::Simple;
use Data::Dumper;

my $xml = XMLin(
    \*DATA,
    ForceArray => [ 'page' ],
);
print Dumper $xml->{page};

__DATA__
<story>
           <page>
                <author>Author 1 </author>
                <keywords>Keyword1 </keywords>
                <headline>Headline1 </headline>
                <image> Image1 </image>
                <description>Desc 1 </description>
            </page>
            <page>
                <author>Author 2</author>
                <keywords>Keyword2 </keywords>
                <headline>Headline 2 </headline>
               <image> Image2 </image>
               <description>Decs 2 </description>
            </page>
</story>

__OUTPUT__
$VAR1 = [
          {
            'keywords' => 'Keyword1 ',
            'author' => 'Author 1 ',
            'description' => 'Desc 1 ',
            'image' => ' Image1 ',
            'headline' => 'Headline1 '
          },
          {
            'keywords' => 'Keyword2 ',
            'author' => 'Author 2',
            'description' => 'Decs 2 ',
            'image' => ' Image2 ',
            'headline' => 'Headline 2 '
          }
        ];