my @array = qw( foo bar baz quux );
my %hash  = map { $_ => 1 } @array;

##</code><code>##

delete($key);

##</code><code>##

delete($myhash{$key});