my %stats;
for (<*>) {
  my $mtime = (stat)[9];   ## for atime, use (stat)[8]
  push @{$stats{$mtime}}, $_;
}
my $oldest = (sort { $a <=> $b } keys %stats)[0];
print "oldest: ", (join ',', @{$stats{$oldest}}), "\n";