use Modern::Perl; my $data; my $VAR1; my %hash; { local $/; $data = ; } eval $data; %hash = %$VAR1; __DATA__ $VAR1 = { '' => '', '362520' => 'Fktn and Name: fukutin[Rattus norvegicus]', '375790' => 'AGRN and Name: agrin[Homo sapiens]', '3339' => 'HSPG2 and Name: heparan sulfate proteoglycan 2[Homo sapiens]', '1428' => 'CRYM and Name: crystallin, mu[Homo sapiens]', }