use strict;
use warnings;

use XML::Twig;
my $twig = XML::Twig -> new(pretty_print => 'indented');
$twig->parsefile('test.xml');
foreach my $element($twig -> get_xpath('.//')){
  $element -> sort_children_on_field('TabOrder', type => 'numeric');
}
$twig -> print;