my %xml_hash = ( dataset => [] );
	while ( my $row = $sth->fetchrow_arrayref ) {
		push @{ $xml_hash{cdr} }, $row;
		#print Dumper($row);
	}