$age = 25;
@siblings = qw("A", "B", "C","D");
%home = ("owner" => "A",
"price" => "B",
"style" => "C",
);
# Create pointer
$pointer1 = \$age;
$pointer2 = \@siblings;
$pointer3 = \%home;
$pointer4 = [ qw(red yellow blue green) ]; # Create anonymous array
$pointer5 = { "A" => "a", "B" => "b", "C" => "c" };
# Create anonymous hash
print $$pointer1; # Dereference pointer to scalar;
print @$pointer2; # Dereference pointer to array;
print %$pointer3; # Dereference pointer to hash;
print $pointer2->[1];
print $pointer3->{"style"};
print @{$pointer4}; # prints elements of anonymous array