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

%handler=(
    '-default'   => sub{$c},
     -type => { l => SEQH },
#     'a1' => sub{ }, # 2 occurrences; attributes: id
#     'a2' => sub{ }, # 1 occurrences; attributes: id
#     'a3' => sub{ }, # 1 occurrences; attributes: id
#     'a4' => sub{ }, # 1 occurrences; attributes: id
     'l' => sub{ $c = [sort {$a->{id} cmp $b->{id} } @$c ]; toxml }, # 1 occurrences;
);
print dt($filename,%handler);