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

##</code><code>##

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

##</code><code>##

c:\test>junk
$foo = {
         'bar' => [
                    #0
                    '1',
                    #1
                    '2',
                    #2
                    '3'
                  ]
       };