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