<?xml version="1.0" encoding="UTF-8"?>
<config>
  <tag1>hallo</tag1>
  <tag2>welt</tag2>
  <url><![CDATA[http://www.google.de/]]></url>
  <list_1>123</list_1>
  <list_1>456</list_1>
  <list_1>789</list_1>
</config>

#!/usr/bin/perl

use XML::Simple;

my $xml = XML::Simple->new;
my $hashref = $xml->XMLin("test.xml");

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

#!/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";
        }
}

#!/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";
                }
        }
}

use XML::Simple qw(:strict);