$ perl -e 'my @a = (0..15); @a = (@a[0..7], $a[8].$a[9], @a[10..15]); print "@a \n";'
0 1 2 3 4 5 6 7 89 10 11 12 13 14 15