FILE=foo.pl ; for i in `cat $FILE |grep -E "^sub " | sed 's/^sub.\([A-Za-z0-9_]*\).*$/\1/'` ; do c=`grep -c $i $FILE` ; echo $c $i ; done | sort -rn