Select Code to Download

#! perl -slw
use strict;
...
pp $hoh;
my_sub( $hoh );
pp $hoh;

C:\test>junk39
{
...
         NEW_KEY => 1,
       },
}