use XML::Dumper;
my $dump = new XML::Dumper;

$db{worda}[0] = "stringa";
$db{worda}[1] = "stringb";
$db{worda}[2] = "stringc";
$db{wordb}[0] = "stringd";
$db{wordb}[1] = "stringe";
$db{wordc}[0] = "stringf";
$db{wordd}[0] = "stringg";
$db{worde}[1] = "stringh";
$db{worde}[2] = "stringi";
$db{worde}[3] = "stringj";

my $file = "dump.xml";
$dump->pl2xml( \%db, $file );
  
my %perl = $dump->xml2pl( $file );

print "New ref: $perl{worde}[3]\n";