sub{$h{$1} = $2 if /(\d+)\n\n(\w+)/}->() foreach <DATA>;