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