Not the shortest, but this was what was obvious to me...

sub c {
  #_123456789_123456789_123456789_123456789_12345
   $i=pop;for(@_){$c=$_ if abs$i-$c>abs$i-$_}$c
}
[download]

Chris