#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple;

my $xml = XML::Simple->new;
my $hashref = $xml->XMLin('test.xml', force_array => 1);

foreach my $key (keys %$hashref) {
        if ( @{$hashref->{$key}} > 0) {
                my @tmp = @{$hashref->{$key}};
          foreach my $value (@tmp) {
                        print $key." => ".$value."\n";
                }
        }
}