use strict;
use warnings;

my @files = glob("z/*.txt"); # alle Dateien des Verzeichnisses z einlesen

# Array @files wird sortiert
@files = 
sort {               # Sortieren 
  (stat $a)[9] < (stat $b)[9] # Sortierkriterium: nach Modifikationszeitstempel
} 
@files;

# neueste Datei ist ganz am Anfang des Arrays
# und wird in Variable gespeichert
my $newest = shift @files; 

print "Keeping: $newest\n"; # Debugausgabe

# der Rest der Dateinamen ist in @files
for (@files) {
  print "deleting $_\n";                  # Debugausgabe
  unlink ($_) or warn "Cant delete $_\n"; # Datei löschen
}

use Time::HiRes qw(stat);