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

 my $filename = 'channels.xspf';
 my $title     = 'tagesschau24';
  my $library  = XMLin($filename,
   ForceArray => [ 'track', 'location' ],
    KeyAttr    => { track => 'title' }
  );

 my $track = $library->{trackList}->{track}->{$title};

my @liste = (@{$track->{location}});
print "$liste[0]\n";