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