opendir my $dir, $ordner or die "Cannot opendir '$ordner': $!\n";
my @test = grep { ! /\A\.\.?\z/ } readdir $dir;
closedir $dir;