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===========================";
	  }
}