#!/usr/bin/perl -w                        # Unix
#!c:/perl/bin/perl -w                     # Windows

$array_ref = ["val1", "val2", "val3", [1, 2, 3]];

print "Content-type:text/html\n\n";
print("$$array_ref[3]->[1]<br>\n");       # 2
print("$$array_ref[3][1]<br>\n");         # 2

$arrayref = [1, 2, ['a', 'b', 'c']];
print($arrayref->[2][1]);                 # b
#print($arrayref[2][1]);                  # Uninitialized value