my @dirfiles =
  map { $_->[0] }
  sort { $_->[1] <=> $_->[1] }
  map { [ $_, stat $_ ] }
grep( not m/^\.\.?$/,
readdir ORDERS);