my @a=('a','b','c','d');
splice @a, 2, 1;
print join ",", @a;