use Data::Dumper;

use strict;
use warnings;

my %hash = (a => 3, b=> 4, c=>1 ,d=>7); 
my @sels = qw(b c); 
delete $hash{$_} foreach (@sels);
print Dumper \%hash;