Select Code to Download

use Modern::Perl;

my $data;
...
    '3339' => 'HSPG2 and Name: heparan sulfate proteoglycan 2[Homo sap
+iens]',
    '1428' => 'CRYM and Name: crystallin, mu[Homo sapiens]',
}

use Modern::Perl;

my %hash = %{do 'dumpparse.txt'};

say map {"$_ : $hash{$_}\n"} keys %hash;