##
@{ $parsed->{'employee'} } = sort {
$a->{'empid'} <=> $b->{'empid'}
} @{ $parsed->{'employee'} };
print XMLout($parsed, NoAttr=>1, RootName=>'employees');
####
3
Larry
W
7
Perl
6
9
Joe
A