#!/usr/bin/perl

use strict;
use warnings;

use Tk;
use Tk::JPEG;

my @bilder;
my $j;
pic();

for($j=0;$j<@bilder;$j++) 
  {

# Hier muss der Fehler sein, die Schleife selbst funktioniert
#-------------------------------------------------------

  my $fenster=MainWindow->new();
  my $img = $fenster->Photo(-file =>$bilder[$j], -format => "JPEG");
  $fenster->Label(-image => $img)->pack;
  $fenster->Button(-text => 'OK', -command => 'exit')->pack;
  MainLoop();
  }


sub pic 
  {
  my @datei;
  my $i;

  opendir(DIR,"test");
  while(@datei = readdir(DIR)) 
    {
    for($i=0;$i<@datei;$i++) 
      {
      if($datei[$i]=~/.jpg/)
        {
        push( @bilder, $datei[$i] ) 
        }
      }
    }
  closedir(DIR);
  }