如何在Perl中使用paste和awk？

#!/usr/bin/perl

use strict;
use warnings;

my @files = qw(file1.txt file2.txt file3.txt);

open(my $fh, "-|", "paste", @files) or die "Cannot run paste: $!";

while (my $line = <$fh>) {
    chomp $line;
    my @fields = split(/\t/, $line);
    # 处理每个字段
}

close($fh);

#!/usr/bin/perl

use strict;
use warnings;

my $file = "data.txt";

open(my $fh, "<", $file) or die "Cannot open $file: $!";

while (my $line = <$fh>) {
    chomp $line;
    if ($line =~ /^(\w+)\s+(\d+)/) {
        my $name = $1;
        my $value = $2;
        # 处理每个字段
    }
}

close($fh);