открытие последнего измененного файла

[Yaroslav]

полазил-поискал,
полистал-почитал,
но не нашел

ближайший вариант вот такой, может кто то знает более приятный?
foreach $filename (sort { -M $a <=> -M $b } glob("*.txt")) {
open (WORDSLIST, "$filename");
...тут операция с самым свежим файлом.
last;
}

[NeoNox]

$last = (sort { -M $a <=> -M $b } glob("*.txt"))[0];

[Yaroslav]

NeoNox
спасибо