Select Code to Download

use strict;
use warnings;
...

my %k = test(); 
print Dumper(\%k);

$VAR1 = {
          '1' => undef,
          '3' => undef,
          '2' => undef
        };

use strict;
use warnings;
...
          '3' => '0.0436435554447634',
          '2' => '0.220397240555943'
        };

use strict;
use warnings;
...
          '3' => '0.0419468023619665',
          '2' => '0.199076903824793'
        };