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

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