delete @hash{keys %end};

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my %hash = (one => 1, two => 2, three => 3);
my %end  = (two => 2);

delete @hash{keys %end};

print "$_ => $hash{$_}\n" for keys %hash;