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