perl 讓檔案依時間排序

就像 ls -tr 一樣，perl 該怎麼作

opendir open_dir , "/etc";
my @dirs = map $_->[0], sort { $a->[1] <=> $b->[1] } map [ $_, +(stat "/etc/$_")[9] ], readdir open_dir;
close open_dir;
foreach my $file (@dirs) {
if (-f "/etc/$file") {
 print "\n$file";
}