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

##</code><code>##

/(\d+)\n+(\w+)/ and $h{$1} = $2 for <DATA>;