my $c = 3;
my $d = $c;
$c = 4;
print "$d \n"; # prints 3