#!/usr/bin/perl 
 
use strict;
use XML::Simple;
use Data::Dumper;

my @fields= qw( title ingres url);

my $xml= XMLin( \*DATA);

foreach my $article (@{$xml->{artikle}})               # $xml is an array of hashes, each hash is an article
  { foreach my $field (@fields)                        # the key/value pairs are element => content
      { print "$field: ", $article->{$field}, "\n"; }
    print "\n";
  }

__DATA__
<doc>
   <artikle>
     <title><![CDATA[Test tittle ]]></title>
     <ingres><![CDATA[Test ingres ]]></ingres>
     <url><![CDATA[Test url ]]></url>
   </artikle>
   <artikle>
     <title><![CDATA[Test tittle 2]]></title>
     <ingres><![CDATA[Test ingres 2]]></ingres>
     <url><![CDATA[Test url 2]]></url>
   </artikle>
</doc>