find(sub {push(@dateien,$_) if $_ eq '.gif' },@directories);