Using XML::Twig:

use XML::Twig;

my $xml = <<EOF;
<xml>
 <email>toto@foo.com</email><name>Toto</name>
 <email>tata@bar.com</email><name>Tata</name>
 <email>tutu@baz.com</email><name>Tutu</name>
</xml>
EOF

my @email;
my @name;

my $twig = new XML::Twig(
  TwigHandlers => {
    email => sub { push @email, $_[1]->text; }, # $_[1] is the element
+ 
    name  => sub { push @name , $_[1]->text; } 
  }
);


$twig->parse( $xml );

print "email: @email\n";
print "name: @name\n";
[download]