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";