use File::Find;
my $base = "c:/blub";
find( sub { push(@dateien, $File::Find::name) }, $base );