Select Code to Download

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

delete($key);

delete($myhash{$key});