use Data::Dumper;
my %hash=(water => 1,
    wine => 1,
    applepie => 1,
    beer => 1,
    orange => 1,
    juice => 1
);
print Dumper \%hash;
@dels=('applepie','orange');

foreach (@dels)
{
    delete $hash{$_};
}
print Dumper \%hash;