note mr_mischief Not the shortest, but this was what was obvious to me... <code> sub c { #_123456789_123456789_123456789_123456789_12345 $i=pop;for(@_){$c=$_ if abs$i-$c>abs$i-$_}$c } </code> Chris 83923 83923