set cell_list [list]
foreach_in_collection cell [get_cells * -hierarchical -filter "is_hierarchical == false" ] {
set cell_name [get_property [get_cells $cell ] ref_lib_cell_name]
lappend cell_list $cell_name
#echo $cell_name
}
set uniqueList [lsort -unique $cell_list]
puts $uniqueList
foreach aa $uniqueList {set bb [lsort -unique [dbGet [dbGet top.insts.cell.name $aa -p ].numRefs]]; echo "$bb,$aa"}