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


##</code><code>##

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;


##</code><code>##

$VAR1 = {
          '6.105' => 'KI',
          '1.48' => 'JRN',
          '9.334' => 'JHEP',
          '5.745' => 'JIMM',
          '6.27' => 'JID',
          '14.152' => 'JCI'
        };


##</code><code>##

my %ifac= (
'14.152' => "JCI",
 '9.334' => "JHEP",
 '5.745' => "JIMM",
 '6.270' => "JID",
 '1.480' => "JRN",
 '6.105' => "KI"
);