my %hash;
my @array = (...);       # whatever

@hash{@array} = undef;   # RTFM to find what this does

delete $hash{'element_value'};