Select Code to Download

use strict;
use warnings;
...

do { chomp; $_ = qq|$_.$hash{$1}| if /(ID=.+)$/ and ++$hash{$1}; print
+ "$_\n" }
  for <DATA>;