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

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

$string1 .= $string2;

print "String1 neu: $string1 # String2: $string2\n";