%hash1=("key1"=>"value1","key2"=>"value2", "key3"=>"value3", "key4"=>"value4", "key5"=>"value5");
@array=(key3, key4);

foreach (@array){
    delete($hash1{"$_"});
}