grep {hd($item,$_) <= $d} keys %$trans_map_ref