my $a = 'blah';
my $b = $a;
$b = 'foo';
print "$a\n";  # prints 'blah'
print "$b\n";  # prints 'foo'