Select Code to Download

'07125096-n' => [ ['07128527-n', 'hype'], ..... ]

use strict;
use warnings;
...
    print "count=", scalar keys %{$href} ,"\n";
    #print "test item:" , Dumper $href->{'01785341-a'} , "\n\n";