$lines[0]       = [ 3,2,1 ];
    print    $lines[0][ 3,2,1 ];
    print @{$lines[0]}[ 3,2,1 ];

##</code><code>##

    print $lines[ARRAY(0x1a7efd8)];

##</code><code>##

    $lines[0] = [ "dog", "cat" ];

##</code><code>##

    print $lines[0][0,1];

##</code><code>##

    $lines[0] = [ "dog", "cat" ];