RosettaCodeData/Task/Copy-a-string/Perl-6/copy-a-string-2.pl6

my $original = 'Hello.';
my $bound := $original;
say $bound;           # prints "Hello."
$bound = 'Goodbye.';
say $bound;           # prints "Goodbye."
say $original;        # prints "Goodbye."