>perl -E"say defined(prototype('CORE::sort')) ? 'can replicate' : 'can\'t replicate'"
can't replicate

##</code><code>##

sub mysort(&@) {
   my $code_ref = shift;
   ...
}

mysort { ... } ...      # Same as: mysort(sub { ... }, ...)