Select Code to Download

$ifac{sprintf "%.3f" $factor}

use Data::Dumper;
my %ifac= (
14.152 => "JCI",
...
6.105 => "KI"
);
print Dumper \%ifac;

$VAR1 = {
          '6.105' => 'KI',
          '1.48' => 'JRN',
...
          '6.27' => 'JID',
          '14.152' => 'JCI'
        };

my %ifac= (
'14.152' => "JCI",
 '9.334' => "JHEP",
...
 '1.480' => "JRN",
 '6.105' => "KI"
);