use Data::Dumper;
my %ifac= (
14.152 => "JCI",
9.334 => "JHEP",
5.745 => "JIMM",
6.270 => "JID",
1.480 => "JRN",
6.105 => "KI"
);
print Dumper \%ifac;