use Data::Dumper;

print Dumper %tmp_dcr;
# if %tmp_dcr is too big, just dump $tmp_dcr{$key} for one of the keys