Select Code to Download

...
   test: expr(s) /^\Z/
...
        return \%hash;
        }
...

$HASH1 = {
           x => 1,
           y => 2,
           z => 3
         };