#!/usr/bin/perluse warnings;use strict;my $text = "This is a value";my $ref1 = \$text;my $ref2 = \$text;print $ref1 == $ref2; $$ref1 = 'New value';print $$ref2;