Bob Smith 18-Aug-1972 Fishing ##

##

  

##

##

  
    Fishing
    Trainspotting
  

##

##

  my $person = XMLin($filename)

##

##

  {
    firstname => "Bob" ,
    surname   => "Smith", 
    dob       => "18-Aug-1972", 
    hobby     => "Fishing",
  }

##

##

  {
    firstname => "Bob" ,
    surname   => "Smith", 
    dob       => "18-Aug-1972", 
    hobby     => [ "Fishing", "Trainspotting" ]
  }

##

##

  my $person = XMLin($filename, forcearray => 1)

##

##

  {
    firstname => [ "Bob" ],
    surname   => [ "Smith" ], 
    dob       => [ "18-Aug-1972" ], 
    hobby     => [ "Fishing" ],
  }

##

##

  {
    firstname => "Bob",
    surname   => "Smith", 
    dob       => "18-Aug-1972", 
    hobby     => [ "Fishing", "Trainspotting" ],
  }

##

##

  my $person = XMLin($filename, forcearray => [ 'hobby' ])

##

##

  {
    firstname => "Bob",
    surname   => "Smith", 
    dob       => "18-Aug-1972", 
    hobby     => [ "Fishing", "Trainspotting ],
  }