perl -MO=Concise -e'delete @hash1{keys %hash2}'
perl -MO=Concise -e'delete $hash1{$_} for keys %hash2'