<>=~$";++$h{$_}for@a=glob<>;$\+=$h{$'-$_}for@a;print