# perl string is value type (not reference)
   my $s = "foo";
   my $t = $s;
   $s .= "bar";  # $t is still 'foo' since assignment copy the value.