#!/usr/bin/perl -l

package Beatle;
use Class::MethodMaker
   new_hash_init => 'new',
   get_set       => [qw(name instruments)],
;

package main;
use strict;
use warnings;
use XML::Simple;

my $xml = XMLin(\*DATA, KeyAttr => []);

for (@{$xml->{beatle}}) {

   my $beatle = Beatle->new(%$_);

   print $beatle->name, ":";

   print "\t$_" for @{$beatle->instruments};
}


__DATA__
<beatles>
   <beatle name="Paul">
      <instruments>Voice</instruments>
      <instruments>Bass</instruments>
      <instruments>Guitar</instruments>
      <instruments>Piano</instruments>
   </beatle>
   <beatle name="John">
      <instruments>Voice</instruments>
      <instruments>Guitar</instruments>
      <instruments>Rhodes</instruments>
   </beatle>
   <beatle name="George">
      <instruments>Voice</instruments>
      <instruments>Guitar</instruments>
      <instruments>Sitar</instruments>
   </beatle>
   <beatle name="Ringo">
      <instruments>Voice</instruments>
      <instruments>Drums</instruments>
      <instruments>Percussion</instruments>
   </beatle>
</beatles>