Exercise: add is_max

Add another function called is_max that gets a number and a reference to an array and will give you ok if the number is really the max. (See List::Util for a max function) What should it print on error? Write test script that uses this function.