use List::Util 'reduce';

  my $closest = reduce { abs($a - $ctime) < abs($b - $ctime) ? $a : $b } @epochs;
  print $closest;