use strict;
use warnings;
use autodie;
    #these 3 above are a must -have
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);