Perl：使用Loop还是Map / Grep？

在我的程序中,我正在整个目录上执行readdir并将其放在列表中.我需要做两件事：

>删除.和..从列表中
>在每个文件上添加当前目录名称.

我可以用循环来做,或者我可以使用map和grep：

# Map and Grep

my @dir_stack = readdir $dir_fh;;
@dir_stack = grep { !/^.{1,2}$/ } @dir_stack;
@dir_stack = reverse map { "$cwd/$_" } @dir_stack;
push @stack,@dir_stack;

# Read Loop

opendir $dir_fh,$cwd;
my @dir_stack;
foreach my $file (readdir $dir_fh) {
    next if $file =~ /^.{1,2}$/;   #Skip "." and ".."
    unshift @dir_stack,"$cwd/$file";
}
push @stack,@dir_stack;

把grep和map结合起来怎么样？

opendir $dir_fh,$cwd;
 my @dir_stack = readdir $dir_fh;;
 @dir_stack = grep { !/^.{1,2}$/ && {$_ = "$cwd/$_"} } @dir_stack;
 push @stack,reverse @dir_stack;

我想让我的代码下周可读,当我看到它并试图弄清楚发生了什么.我还需要我的代码才能有效.