zen% perl -wle 'my %hash; sub delete { die "not this one" } delete($hash{key})'
  zen%