sub max { my ($max, @vars) = @_; for (@vars) { $max = $_ if $_ > $max; } return $max; }