Substitute @array for @source. Of course, Rolf demonstrates a more efficient solution using the max function from List::Util if all you want is the max value and not the location.