Select Code to Download

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

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