my %filedate;
my @lowest_priority =
  sort {
    ( $filedate{ $a } ||= -M $a )
    <=>
    ( $filedate{ $b } ||= -M $b )
  } grep /^Flat_file.*\.txt$/, readdir LOWEST;