Perl map / grep内存泄漏

#!/usr/bin/perl
use strict;
use warnings;

# takes: an array reference
# returns: 1
sub g {
    my ($a) = @_;
    return 1; 
}

# takes: nothing
# returns: the result of applying g on an array reference
sub f {
    my @a = ('a') x 131072; # allocate roughly a megabyte 
    return g(@a); 
}

# causes a leak:
#map { f($_) } (1..100000); 

# loop equivalent to map,no leak:
#my @b;
#for my $i (1..100000) {
#    push @b,f($_);
#}

# causes a leak:
#grep { f($_) } (1..100000);

# loop equivalent to grep,$i if f($_);
#}

取消注释4个代码块中的1个(在子例程下面)并在监视其内存使用情况时运行脚本.在我的机器上,使用grep或map的代码似乎会导致内存泄漏,而“循环等效”则不会.我的perl版本是v5.10.1,我正在运行Ubuntu.

我相信这可能是perl中的一个错误,但我不想在没有关于可能的原因的另一个意见的情况下跳到一个激烈的结论.任何人都可以解释这种行为是否正确？

谢谢