my $foo = "bar";
$foo .= "baz";
print $foo, "\n";