Here is the code in List::Util

Just as a point of information List::Util will use an XS version if possible, which is considerably faster than the Perl one listed above.

Really there isn't any reason not to use List::Util if its available, and it's been core since 5.007003.