以下是一个示例，展示了如何使用Perl将来自不同文件的列合并到一个文件中：

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

# 打开输出文件
open my $output_fh, '>', 'output.txt' or die "无法打开输出文件：$!";

# 打开文件1
open my $file1_fh, '<', 'file1.txt' or die "无法打开文件1：$!";
while (my $line = <$file1_fh>) {
    chomp $line;
    my @columns = split /\t/, $line;
    
    # 输出文件1的第一个列
    print $output_fh $columns[0] . "\t";
}
close $file1_fh;

# 打开文件2
open my $file2_fh, '<', 'file2.txt' or die "无法打开文件2：$!";
while (my $line = <$file2_fh>) {
    chomp $line;
    my @columns = split /\t/, $line;
    
    # 输出文件2的第二个列
    print $output_fh $columns[1] . "\t";
}
close $file2_fh;

# 打开文件3
open my $file3_fh, '<', 'file3.txt' or die "无法打开文件3：$!";
while (my $line = <$file3_fh>) {
    chomp $line;
    my @columns = split /\t/, $line;
    
    # 输出文件3的第三个列
    print $output_fh $columns[2] . "\n";
}
close $file3_fh;

# 关闭输出文件
close $output_fh;

上述示例假设要合并的文件是file1.txt，file2.txt和file3.txt，每个文件都包含以制表符分隔的列。代码将每个文件的特定列提取到一个输出文件output.txt中。在这个示例中，我们选择了每个文件的第一列，第二列和第三列，但你可以根据需要自定义选择列的逻辑。

请注意，代码中的文件名和列的索引可能需要根据实际情况进行调整。此外，如果文件较大，可以使用更高效的方法来处理文件操作，例如使用IO::File模块或Text::CSV模块。