#!/usr/bin/perl
use strict;
use warnings;

#demonstrate reference to scalars

my $variable = "HOUSE";

my $reference = \$variable;

print "var   = $variable\n";
print "ref   = $reference\n";
print "deref = $$reference\n";

$$reference = "MOUSE";
print "modify variable via reference\n";
print "var   = $variable\n";