#!/usr/bin/perl

$x[0] = 123;    #implicitly create an array @x by assigning to it
$x[1][2] = "three"; #and set what looks like a second dimension value

print "$x[0]\n"; #will print:  123
print "$x[1]\n"; #will print:  ARRAY(0x55edacea0fc0)
    # so, we know that it is a reference to an ARRAY and
    # for little useful purpose we get the address of it
    # on the stack.  Just as ugly as Python's id()
print $x[1][2] , "\n"; #print: three
print $x[1]->[2] , "\n"; #print: three    
print @{$x[1]} , "\n"; #print: three - although technically it
        # did two undefined, so empty,  values before the three,
        # since we are printing the entire array and there are
        # two undefined values before the one we did actually set