perl -MDevel::Dwarn -MList::UtilsBy=count_by \
    -e 'Dwarn({ count_by { $_ } map split("", $_), <> });'
[download]