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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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