<>;$h{$_}++for glob<>;print join$",map$h{$_}+0,glob<>