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

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