Algorithms/Find maximum/perl method 1

perl source code

Simple example of using this subroutine:

output should be: 199