#!/usr/bin/perl

my $file = "layer.xml";
use XML::Simple;
use Data::Dumper;

die "Can't find file \"$file\"" unless -f $file;

$xml = new XML::Simple();

print "Input file :$file:\n";

# read XML file
$data = $xml->XMLin("/apps/inst1/metrica/anthony/3G_SGSN_SGN3/tools/$file");

foreach $keys ( keys %$data ) {
 next if ( $keys !~ /level/ );
 $one = $$data{$keys}{label};
 foreach $keys1 ( keys %{$$data{$keys}{level}} ) {
  $two = $$data{$keys}{level}{label};
  foreach $element ( @{$$data{$keys}{level}{$keys1}} ) {
   print "$one->$two->$$element{label}:\n";
  }
 }
}