my $dir = "verzeichnis";

my $latest = (
    map{
        $_->[0]
    }
    sort{
        $a->[1] <=> $b->[1]
    }
    map{
        [$_, -M $_]
    }
    grep {
        -f $_
    }
    glob(
         $dir."*"))[0];
    
print $latest;