@modlist2 = sort (@modlist);

##</code><code>##

sort -u modtype_2430.srt > modtype_2430.unq

for k in `cat  modtype_2430.unq`
do
if [ "$k" != 0 ]
then
type=$(grep $k modtype_2430.srt|wc -l)