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";

##</code><code>##

Index 7 (before): 8
Index 8 (before): 9
Index 7 (after): 89
Index 8 (after): 9

##</code><code>##

$array[7] = $array[7] . splice @array, 8, 1;

##</code><code>##

Your method:   1 2 3 4 5 6 7 89 9 10
Splice method: 1 2 3 4 5 6 7 89   10