# delete $array[$x];
# $array[$x] = undef;
splice @array, $x, 1;