my $dir = '.'
my @list = glob($dir . '/*'); # <- amended per merlyn's response

##</code><code>##

my $dir = '.';
opendir(my $dh, $dir) or die "Could not open $dir because $!\n;
@list = readdir($dh);

closedir($dh);

##</code><code>##

@list = glob($dir .'/A*');

##</code><code>##

my $dir = '.';
opendir(my $dh, $dir) or die "Could not open $dir because $!\n;
while(readdir($dh)){
   # do stuff to $_
}
closedir($dh);