Select Code to Download

c:\test>junk
Invalid value for shared scalar at c:\test\junk.pl line 8.

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

c:\test>junk
$foo = {
...
                  ]
       };