my $ctime = (stat($key))[10];
my($diff, $closest) = $ctime;
for(@returns) {
  $closest = $_ and $diff = abs($ctime - $_)
    if abs($ctime - $_) < $diff;
}
print "closest match is - $closest\n";