Select Code to Download

use strict;
use warnings;
...
printf qq{foo: %s, ba: %s, value: %s\n},
   split( m{\0}, $_ ), $flatter{ $_ }
   for @sortedKeys;

foo: foo3, ba: baz, value: 0.0001939
foo: foo3, ba: bar, value: 9.966003977e-06
...
foo: foo2, ba: bar, value: -4.0183e-05
foo: foo1, ba: baz, value: -0.000398154
foo: foo1, ba: bar, value: -0.12697

use strict;
use warnings;
...
        keys %{ $hoh_test{ $k1 } };
   }
   keys %hoh_test;