~$ perl
use warnings;
sub shift {}
shift;
__END__
Ambiguous call resolved as CORE::shift(), qualify as such or use & at - line 4.
~$