my @array = 1..10;
print "Index 7 (before):  $array[7]\n";
print "Index 8 (before):  $array[8]\n";
$array[7] = $array[7] . $array[8];
print "Index 7 (after):  $array[7]\n";
print "Index 8 (after):  $array[8]\n";