读perl脚本代码中遇到的一个小问题，请大家帮助

下面这个函数的目的是为了比较两个数组，如果一样，返回0，否则返回1。请问两处绿色标记的注释都是什么意思？

sub compareparts {
my ($firstref, $secondref)=@_;

my $first=join("", @$firstref);
my $second=join("", @$secondref);

# we cannot compare arrays index per index since with the base64 chunks,
# they may not be "evenly" distributed

# NOTE: this no longer strips off carriage returns from the arrays. Is that
# really necessary? It ruins the testing of newlines. I believe it was once
# added to enable tests on win32.

if($first ne $second) {
     return 1;
}

return 0;
}

以下是google在线翻译的结果：

这个还是应该看看base64的格式吧

谁能帮助翻译一下？

sub compareparts {
my ($firstref, $secondref)=@_;

my $first=join("", @$firstref);
my $second=join("", @$secondref);

# we cannot compare arrays index per index since with the base64 chunks,
# they may not be "evenly" distributed

# NOTE: this no longer strips off carriage returns from the arrays. Is that
# really necessary? It ruins the testing of newlines. I believe it was once
# added to enable tests on win32.

if($first ne $second) {
     return 1;
}

return 0;
}

我们不可以使用下标来逐个比较数组的元素，因为如果使用了 base64块，他们可能不是“平均”分布的。

注意：我们不再将数组元素后的回车符去掉。 我们真得需要这个吗?它会破坏针对新行的测试。我相信以前是为了在win32上举行测试才加入它的。

说实在的，上下文不够再加上本人是perl菜鸟，翻译得我自己都看不懂。等大虾