Language Basics Perl

#!/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;