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 ], }