#!/usr/bin/perl -w
use strict;
use XML::Simple;

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

for (my $i=0;$i<$#{$data};$i++) {
	  if($data->[$i]->{Phones}) {
		print "\n$data->[$i]->{Phones}->{Manufacturer}";
        print "\n$data->[$i]->{Phones}->{Model}";
        print "\n$data->[$i]->{Phones}->{Version}";
        print "\n$data->[$i]->{Phones}->{Count}";
        print "\n===========================";
	  }
}