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