# Declare an array and print out two elements
my (@a) = qw( foo bar baz buz );
print join(", ", $a[0], $a[2]), "\n";


# Declare a reference to an anonymous hash and print
# out some data from it
my ($b) = {
  'foo' => 'bar',
  'baz' => 'baz'
};
print join(", ", $b->{'foo'}, $$b{'baz'}), "\n";


# The following statement is quite odd.
my (@c) = [ 'foo', 'bar', 'baz', 'buz' ];

# Perhaps you meant the following:
my ($c) = [ 'foo', 'bar', 'baz', 'buz' ];
print join(", ", $c->[1], $$c[3]), "\n";


# Create a regular hash and print out some data:
my (%d) = (
  'foo' => 'bar',
  'baz' => 'buz'
);
print join(", ", $d{'foo'}, $d{'baz'}), "\n";