Select Code to Download

use Data::Dumper;

...
my @sels = qw(b c); 
delete $hash{$_} foreach (@sels);
print Dumper \%hash;

use Data::Dumper;
use Benchmark qw(timethese);
...
    my @sels = qw(b c); 
    delete @hash{@sels};
}

Benchmark: timing 1000000 iterations of loop, non-loop...
      loop: 10 wallclock secs ( 9.84 usr +  0.03 sys =  9.87 CPU) @ 10
+1276.08/s
(n=1000000)
  non-loop:  8 wallclock secs ( 6.88 usr +  0.02 sys =  6.89 CPU) @ 14
+5116.82/s
(n=1000000)