Help for this page

Select Code to Download


  1. or download this
    perl -E'
$h={foo=>{bar=>10000000000},baz=>{bar=>70000000},qux=>{bar=>2000000000
+0}};
...
qux: 20000000000
foo: 10000000000
baz: 70000000
  2. or download this
    perl -E'
$h={foo=>{bar=>10000000000000},baz=>{bar=>70000000},qux=>{bar=>2000000
+0000000}};
...
foo: 10000000000000
baz: 70000000
qux: 20000000000000