@h{ /\w$/g } += $_ while <DATA>;

##</code><code>##

$h{ (split)[1] } += $_ while <DATA>;