einlesen und "on the fly" sortieren?

[$xNeTworKx]

Hallo,
Ich lese Dateien ein, die so aussehen-> 125764675.cgi .Diese Dateien würde ich gerne so sortieren, dass immer die Neueste als Erste ausgegeben wird. An und für sich kein Problem, aber was mich stört ist, dass ich nicht weis, wie ich die Dateien gleich während dem Einlesen des Verzeichnisses sortieren kann. Ich habe bisher immer alle Files in einer Liste gesammelt und dann mit foreach (sort{$b cmp $a}@files) ausgeben.
Kann man die Files überhaupt schon während des Einlesens sortieren? Ich frage mich das deshalb, weil das Script ja noch nicht weis, welche Dateien noch kommen. Allerdings verstehe ich zu wenig von perlinternen Prozessen.
Wie könnte ich folgendes Beispiel so ändern, dass ich es nicht in eine Liste pushen muss, sondern gleich sortieren kann?

opendir(DIR,'users') or die "....
     while (defined($_ = readdir(DIR)))   {
              if ($_ =~ /^\d+?.cgi$/)   {
              push @liste, $_;
              }
     }
closedir DIR;
.
.
.

$xNeTworKx.