#!/bin/perl

@a = (a, b, c);
@b = qw(e d f);    # quote word
$c = \@a;
$d[0] = t; $d[1] = su;

print @a, @b, @$c, "\n";
print @d, "\n";
print @{\@d}, "\n";  # worked!

$e->[0] = abc;
$e->[1] = def;

print @$e, "\n";

$f->{a} = 1;
$f->{b} = 2;

print %$f, "\n";


#---
@john = (47, "brown", 186);
@mary = (23, "hazel", 128);
@bill = (35, "blue", 157);

@A = (\@john, \@mary, \@bill);

# to access A[1][1]:
print $A[1]->[1], "\n";
print $A[1][1], "\n";  # works too!

