4 lines
110 B
Perl
4 lines
110 B
Perl
my $original = 'Hello.';
|
|
my $ref = \$original;
|
|
$$ref = 'Goodbye.';
|
|
print "$original\n"; # prints "Goodbye."
|