perlgolf hole - Max without Sort

Hole type: subroutine

Write a subroutine that accepts a list of numbers, and returns the maximum number from the list, without using Perl's built-in sort.

Solution