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