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";
[download]

Would yield:

Index 7 (before): 8
Index 8 (before): 9
Index 7 (after): 89
Index 8 (after): 9
[download]

If you want to have an element disappear when concatenated elsewhere, you could use splice:

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

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