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