Select Code to Download

Select or download this

while LOOP {
               push @output,
...
foreach my $key ( sort { $sort_xml{$a} <=> $sort_xml{$b} } ( keys(%sor
+t_xml) ) ) {
        print $key $sort_xml{$key};
    }

Select or download this

Odd number of elements in hash assignment at rpt.pl line 960.
Operation "<=>": no method found,
    left argument in overloaded package XML::Generator::pretty,
    right argument in overloaded package XML::Generator::pretty at rpt
+.pl line 961.