for (sort keys %count){
  $sheet2->write_row($row++,0,[$_,$count{$_}]);
}