while (my $datei = readdir(DIR)) {
  next unless /\.jpg$/; # . wird zu einem beliebigen zeichen, also escapen
  push (@bilder, $_);