my $flag = ".flag";
foreach my $file(@files) {
        if ($file !~ /$flag$/) {	   
            print "$file\n";	    
            $edifile = $file;	    

        }
        my $search = "$edifile" . "$flag";
        print "gesucht wird: $search\n";
        if ($file =~ /$search$/) {
            $donefile = $file;	    
            $filehash{$edifile} = $donefile;
        }
    }