Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        printf("foo: $foo, ba: $ba, value: %s\n", $hoh_test{$foo}{$ba}
+);
    }
}

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