use XML::Simple;
my $xml = new XML::Simple;
my $data = $xml->XMLin("testing.xml");

foreach my $e (@{$data})
{
  my $p;
  if ($p=$e->{Phones}) {
        print "\n$p->{Manufacturer}";
        print "\n$p->{Model}";
        print "\n$p->{Version}";
        print "\n$p->{Count}";
        print "\n===========================";
      }
}
[download]

It works.