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==========================="; } #### 2 Company X P90 RM-194 7 Rocket Inc PlugX 1.01 7222 7224 7223 7224