perl闭包中的$$是什么意思？

qtdszws

在看MRTG的cfgmaker时碰到如下的调用

    my $addrouter_ornf = addrouter($opt,
                   $routers,
                   \$noofrouter,
                   \%flags);

sub addrouter() {
    my $opt = shift;
    my $routers = shift;
    my $noofrouter = shift;
    my $flags = shift;

    return sub {
        my $rawname = shift;

        $$noofrouter++;  # First increase the number of routers seen.
...
   }
}

其中$$noofrouter++; 前面的$$是什么意思？谢谢

remark

这程序命名好乱
LZ看的什么书 不知道解引用 倒知道闭包？