my $closest = reduce { $a->[1] < $b->[1] ? $a : $b }
                map [ $_ => abs($ctime - $_) ], @epochs;
  print $closest->[0];