while LOOP {
               push @output,
				  $xml->cdr(
					$xml->$label1( $hold_col_val . " " . $hold_col_val2 ),
					$xml->$label2($total_cdr_count),
					$xml->$label3($total_call_count),
					$xml->$label4($total_error_count),
					$xml->$label5($formatMin),
					$xml->$label6($formatASR),
					$xml->$label7($formatPDD),
					$xml->$label8($formatDUR),
					$xml->$label9($hold_min_date),
					$xml->$label10($hold_max_date),
					$xml->$label11($link));
}

my %sort_xml = @output;
foreach my $key ( sort { $sort_xml{$a} <=> $sort_xml{$b} } ( keys(%sort_xml) ) ) {
		print $key $sort_xml{$key};
	}


##</code><code>##

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.