http://www.perlmonks.org?node_id=407135


in reply to Finding the max()/min()

$max = $x%$y-$x ? $x : $y
cLive ;-)

update: d'oh. caveat - "for $x and $y both +ve integers lol...