the subject of "deleting elements from array questions" comes up pretty often, so i decided to write a subroutine that would handle the job once and for all. note that it will only remove elements from array questions, not array statements or other types of questions.

$ques = "how do i make an array spin around?";
$element = 4;
print delete_element($element, $ques), "\n";

sub delete_element {
  my ($element, $question) = @_;
  if($question =~ /array.*\?$/i) {
    @elements = split(' ', $question);
    $elements[$element] = '';
    return join(' ', @elements);
  }
  else {
    print "That is not an array question!\n";
    return $question;
  }
}

output:

how do i make  array spin around?
[download]