use strict;
use warnings;
my $dir = "c:/test";
my @array;

GetDirs($dir);

sub GetDirs {
    my ($directory) = @_;
    opendir(DIR, $directory) or die "Error: couldn't open directory '$directory': $\n";
    foreach my $entry (readdir(DIR)) 
    {  
    push (@array, $entry);
    }
    close (DIR);
} #End GetDirs

print "@array";

SUB_STRUCT
  SPRINGE IN ORDNER
  FALLS ORDNER LEER -> ENDE
  SONST ERSTELLE ARRAY
            SCHREIBE ALLE DATEINAMEN UND ORDNERNAMEN IN ARRAY
  STARTE SUB_STRUCT

ENDE SUB

use strict;
use warnings;

my $dir = "c:/test";
my @array;

GetDirs($dir, \@array);

sub GetDirs {
   my ($directory, $arrayref) = @_;

   $directory =~ s!\\!/!g;
   $directory =~ s!/$!!;
   
   if(opendir(my $dir, $directory)) {
      while(my %entry = readdir $dir) {
          next if $entry =~ m!^\.\.$?!;
          
          my $path = "$directory/$entry";
          push @{$arrayref}, $path;
          GetDirs($path, $arrayref) if-d $path;
      }
      closedir $dir;
   }
} #End GetDirs

print join("\n", @array);

#! /usr/bin/perl
use strict;
use warnings;
use File::Find;

my $dir = "c:/test";
my @files = ();
find (sub {
  if (-f $_) {
    push (@files, $File::Find::name);
  }
}, $dir);

foreach my $file (sort @files) {
  print "Datei: $file\n";
} # foreach

use strict;
use warnings;

my $tree = {};
read_it('D:', $tree);

{
  my $durchlauf;
  sub read_it {
    my ($dir, $tree) = @_;

    my $name;
    $name = (split(/\\/, $dir))[-1] if ($durchlauf);
    $name = $dir unless ($durchlauf);
    $durchlauf = 1;

    my @file = ();
    my @dir = ();

    opendir(VERZ, $dir);
    while (my $read = readdir(VERZ)) {
      if (-d "$dir\\$read") {
       push (@dir, "$dir\\$read") if ($read !~ /(\.)$/);
      }
      else {
        push @file, $read;
      }
    }
    closedir(VERZ);

    $tree -> {$name} =  { files => \@file };

    foreach my $directory (@dir) {
      read_it("$directory", \%{ $tree -> {$name} })
    }
  }
}

 $tree -> {$name} = { files => \@files };