my @a = (a..g);
print "@a\n";
splice @a, ($#a+1)/2, 0, (1..5);
print "@a\n";