>>303
ファイルリスト取得時から根本的に変えると

my @file = map { name => $_, time => (stat $_)[9] }, readdir DIR;
print
　map { scalar localtime $_->{'time'}, " $_->{'name'}\n" }
　sort { $a->{'time'} <=> $b->{'time'} }
　@file;