Select Code to Download

my %sort_xml = @output;

foreach my $key ( sort { $sort_xml{$a} <=> $sort_xml{$b} } ( keys(%sor
+t_xml) ) )

@sorted = sort { $a->attr_method cmp $b->attr_method } @out;