my $foo = 'ba';
my $bar = 'z';
print $foo . $bar;