#!/usr/bin/perl

print "Hard Reference:\n\n";
$dog = 'Fido';
$animal = \$dog;
print "$animal\n";
print "$$animal\n";
print "${$animal}\n";
print ref($dog), "\n";
print ref($animal), "\n";

print "\nReference to an Array:\n\n";
@dogs = ('Snoopy', 'Spike', 'Fido', 'Spot');
$animal = \@dogs;
print "$animal\n";
print ref($animal), "\n";
print "@{$animal}\n";
print "$animal->[0]\n";
print "$animal->[1]\n";

print "\nReference to an Array:\n\n";
@dogs = ('Snoopy', 'Spike', 'Fido', 'Spot');
$animal = \@dogs;
print "$animal\n";
print ref($animal), "\n";
print "@{$animal}\n";
print "$animal->[0]\n";
print "$animal->[1]\n";

$animal = ['Shamu', 'Godzilla', 'King Kong'];
print "\n$animal\n";
print ref($animal), "\n";
print "@{$animal}\n";
print "$animal->[0]\n";
print "$animal->[1]\n";

# Works for hashes and subs too!