Select Code to Download

my $hash = {};
foreach my $line ( <DATA> )
...
    $dup_hash->{ $type_pos }{count}++;
    $dup_hash->{ $type_pos }{id} = $id;
}

$dup hash = {
  '1_10' => {
...
           }
}