my $string1 = "Hello";
my $string2 = " World";
substr($string1, length($string1), 1, "$string2");
print "$string1\n";