#!/bin/perl
@toys = qw( A B C );
$num = @toys;
%games=("A" => "a",
"B" => "B",
"C" => "C",
);
$ref1 = \$num;
$ref2 = \@toys;
$ref3 = \%games;
print "$$ref1.\n"; # dereference pointers
print "",join(",",@$ref2), ".\n";
print "$ref2->[0].\n";
print "$ref2->[2].\n";
while(($key,$value)=each(%$ref3)){
print "$key => $value\n";
}
print "$ref3->{'C'}\n";