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

##</code><code>##

  zen% perl -wle 'sub bless { die "not this one" } my $a=bless({});'
  Ambiguous call resolved as CORE::bless(), qualify as such or use & at -e line 1.
  zen%