@a = (1,2,3);
delete $a[1];
print "($_)\n" for @a;