Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        print "foo: $$keys[0], ba: $$keys[1], value: $hoh_test{$$keys[
+0]}{$$keys[1]}\n";
    }
}

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

#!/usr/bin/perl -w
use strict;
...
        print "foo: $$keys[0], ba: $$keys[1], value: $hoh_test{$$keys[
+0]}{$$keys[1]}\n";
    }
}