#!/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";