Logikproblem bei Zuweisung

[xNeTworKx]

Hallo,
ich sitze nun seit 2 Stunden an einer Schleife und komm nicht weiter. Ich will die 2 zuletzt geänderten Dateien im Ordner lassen, und die restlichen verschieben. Es klappt wunderbar, aber nur bei der zuletzt geänderten. Die zu vorletzt geänderte Datei ist nicht die, die im Ordner belassen wird, aber wieso ? Ich poste hier mal die letzten relevanten Schleifen, wobei ich glaube, daß die erste Schleife schuld ist:

(zur Info : Die Dateien sind jeweils in einem Hash angelegt, wobei der Name der Datei der Schlüssel ist, und der Inhalt der Wert)

foreach my $key(keys %hash)  {
    if (-M $key gt "$zuletzt_geaendertes")  {
    $vorletztes = $zuletzt_geaendertes;
    $zuletzt_geaendertes = $key;
    }
}
foreach my $key(keys %hash)  {
    if ($key ne $zuletzt_geaendertes)  {
         if ($key ne $vorletztes)  {
               if (!-e "$schreibordner")  {
       mkdir("$schreibordner");
       }
         open(FILE,">$schreibordner/$key") or die "Kann $key nicht in neuen Ordner schreiben : $!\n";
         flock FILE, 2;
         print FILE $hash{$key};
         close FILE;

unlink "$leseordner/$key";
         }
    }
}

$xNeTworKx.