#!/usr/bin/perl use strict; use warnings; use XML::Simple; my $xml = XML::Simple->new; my $hashref = $xml->XMLin('test.xml'); foreach my $key (keys %$hashref) { if ( ref($hashref->{$key}) eq 'ARRAY' and @{$hashref->{$key}} > 0) { my @tmp = @{$hashref->{$key}}; foreach my $value (@tmp) { print $key." => ".$value."\n"; } } else { print $key." => ".$hashref->{$key}."\n"; } }