my @array = ("zero", "one", "two", "three", "four");
my $remove = 2; # let's remove 2!
@array = (@array[0 .. ($remove - 1)], @array[($remove + 1) .. $#array]);
print "\n@array\n";
print $array[0], "\n", $array[3];