Select Code to Download

sub STORE {
    warn "STORE: ".join(', ',map{"'$_'"} @_)."\n";
    ...

STORE: 'FlatHash=ARRAY(0x820fd58)', 'Monkey', 'HASH(0x820fd88)'

$VAR1 = {
          'monkey' => {
                        'habits' => ['Eating', 'Scratching']
                      }
        };

$VAR1 = {
        'monkeyhabits' => 'Scratching'
}