use strict;
use warnings;
use feature 'say';

my $a = "foo";
my $b = "bar";
# . joins two strings
my $joined = $a . $b;
say $joined;
# .= appends in place
$joined .= "!";
say $joined;

. joins, .= appends