my $string1 = 'light';
my $string2 = 'house';

my $string3 = $string1 . $string2; 

print $string1, " # ", $string2, " # ", $string3, "\n";