http://www.perlmonks.org?node_id=570266


in reply to Shared hash of anonymous arrays?

$foo{'bar'} is an array reference so the assignment to the array is:

@{$foo{'bar'}} = ($i, $j, $k);

The code then prints:

$foo = { 'bar' => [ #0 '1', #1 '2', #2 '3' ] };

DWIM is Perl's answer to Gödel