my $dir = 'verzeichnis';

opendir DIR, $dir or die $!;
my $latest = (
    map{
        $_->[0]
    }
    sort{
        $a->[1] <=> $b->[1]
    }
    map{
        [$_, -M $_]
    }readdir DIR )[0];

my $dir = 'verzeichnis';

opendir DIR, $dir or die $!;
my $latest = (
    map{
        $_->[0]
    }
    sort{
        $a->[1] <=> $b->[1]
    }
    map{
        [$_, -M $_]
    }
    grep{
        -f $_
    }readdir DIR )[0];

my @array = (1..4);
print "@array\n";
@array = map{ $_ * 2 }@array;
print "@array\n";

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $dir = '.';

opendir DIR, $dir or die $!;
my @files = readdir DIR;
print Dumper(\@files);

@files = grep{ -f $_ }@files;
print Dumper(\@files);

@files = map{ [$_, -M $_] }@files;
print Dumper(\@files);

@files = sort{ $a->[1] <=> $b->[1] }@files;
print Dumper(\@files);

@files = map{ $_->[0] }@files;
print Dumper(\@files);

my $latest = $files[0];
print $latest;

closedir DIR;

find . -mindepth 1 -maxdepth 1 -printf '%T@ %p\n' | sort -nr | head -1 | sed 's/^[^ ]* //'

my $dir = "verzeichnis";

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

    grep{
        -f $_ and $_ =~ /Vollexport/
    }