perl封装一个函数，输入是一个数组和一个二进制文件，将数组中的数据写入该二进制文件的功能。

在Perl中，你可以创建一个函数来实现这个功能。下面是一个简单的示例，它接受一个数组和一个文件名作为参数，然后使用`binmode()`、`pack()`和`print()`函数将数组的内容打包成二进制格式写入文件：

sub write_binary_array_to_file {
    my ($array_ref, $file_path) = @_;
    
    # 确保文件以二进制模式打开
    open my $fh, '>:b', $file_path or die "无法打开文件 '$file_path': $!";

    # 将数组元素打包为二进制，例如假设每个元素都是整数
    foreach my $element (@$array_ref) {
        print $fh pack("i", $element);
    }

    # 关闭文件
    close $fh or warn "无法关闭文件 '$file_path': $!";
}

# 使用示例
my @data = (1, 2, 3, 4, 5);
write_binary_array_to_file(\@data, 'output.bin');

在这个函数中，`pack("i", $element)`用于将整数元素转换为网络字节序的32位整数二进制表示。如果数组元素不是整数，你需要根据实际类型修改`pack`函数。