my @array = ("zero", "one", "two", "three", "four");
my %hash = map { $_ => "1" } @array;
delete $hash{"two"};
@array = keys %hash;
print "@array\n";

##</code><code>##

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];