# read the paths and stat each one
while (defined ($_=<>)) {
  my $f;
  my @s;
  ( $f = $_ ) =~ s/\r?\n$//;
  next unless @s = stat($f);
  $t{$f}=$s[9];
}

# Sort and write to stdout
for $_ (sort {$t{$a} <=> $t{$b}} keys %t) {
  my $f = $_;
  my $d = POSIX::strftime("%F %T", localtime $t{$_});
  if ($dospath) {
        $f = Filesys::CygwinPaths::win32path($f);
  }
  print $d, " ", $f, "\n";
}

##</code><code>##

$ locate zeraia | sort-files-by-date | tail
2017-07-03 14:15:32 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-03-14-15.gpg
2017-07-03 16:42:59 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-03-16-42.gpg
2017-07-03 16:42:59 C:\cygwin\var\gpg-db\zeraia-17-07-03-16-42.gpg
2017-07-03 21:30:10 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-03-21-30.gpg
2017-07-03 21:30:10 C:\cygwin\var\gpg-db\zeraia-17-07-03-21-30.gpg
2017-07-14 18:38:14 C:\cygwin\var\gpg-db\zeraia-17-07-14-18-38.gpg
2017-07-14 18:38:14 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-14-18-38.gpg
2017-07-24 14:02:59 C:\cygwin\var\gpg-db\zeraia-17-07-24-14-02.gpg
2017-07-24 14:02:59 C:\cygwin\var\gpg-db\zeraia-17-07-24-14-02.gpg
2017-07-24 14:02:59 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-24-14-02.gpg

$ locate zeraia | sort-files-by-date | tail
2017-07-03 14:15:32 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-03-14-15.gpg
2017-07-03 16:42:59 C:\cygwin\var\gpg-db\zeraia-17-07-03-16-42.gpg
2017-07-03 16:42:59 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-03-16-42.gpg
2017-07-03 21:30:10 C:\cygwin\var\gpg-db\zeraia-17-07-03-21-30.gpg
2017-07-03 21:30:10 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-03-21-30.gpg
2017-07-14 18:38:14 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-14-18-38.gpg
2017-07-14 18:38:14 C:\cygwin\var\gpg-db\zeraia-17-07-14-18-38.gpg
2017-07-24 14:02:59 C:\Users\Heidi\Dropbox\Teknisk\gpg-db\zeraia-17-07-24-14-02.gpg
2017-07-24 14:02:59 C:\cygwin\var\gpg-db\zeraia-17-07-24-14-02.gpg
2017-07-24 14:02:59 C:\cygwin\var\gpg-db\zeraia-17-07-24-14-02.gpg