#!/usr/bin/perl
use XML::DT ;
my $filename = shift;


%handler=(
     '-outputenc' => 'ISO-8859-1',
     '-default'   => sub{ for $pal (split( /\s+/, $c ))
                            { push( @{$ind{$pal}}, [join('/',@dtcontext), $v{ident}] ); 
                            }; ""},
);
dt($filename,%handler); 


for (sort keys %ind){
  print "$_\n";
  foreach (@{$ind{$_}})
    {
     print "    $_->[0] :: $_->[1]\n";
    }
}