Select Code to Download

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

    print $lines[ARRAY(0x1a7efd8)];

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

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

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