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";