my $total_size = total_size(\%val);
print "\%val :",$total_size,$/;
my $total_size = total_size(\%seen_cdr);