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

I try this code on testing.xml, it says : Not a HASH reference at 710565.pl line 7.
Then I remove the <anon> and </anon>, it runs ok. Quite bizarre.