my $data;

map { $data->{$1} = [$2,$3] while /((\d?)\s+\((\w+)\))/g } <DATA>;

use Data::Dumper;
print Dumper($data);

__END__
...
 '3 (DHvY)' => [
                          '3',
                          'DHvY'
               ],
...
[download]