#!/usr/local/bin/perl -w

    # Set up the data types.
    my $scalarVar = "Tom was here.";
    my @arrayVar = qw (Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
    my %hashVar = ("Toronto" => "East", "Calgary" => "Central", "Vancouver" => 'West');

    # Create the references
    my $scalarRef = \$scalarVar;
    my $arrayRef = \@arrayVar;
    my $hashRef = \%hashVar;

    # Print out the references.
    print "$scalarRef \n";
    print "$arrayRef \n";
    print "$hashRef \n";