以下是一个示例代码，假设我们有一个名为data.txt的文件，其中第一列是数字，第二列是相关的值。

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

my $filename = "data.txt";

# 打开文件，读取数据
open(my $fh, '<', $filename)
  or die "无法打开文件 '$filename' $!";

my $biggest_num = 0;
my $matching_val = "";

while (my $line = <$fh>) {
  chomp $line;
  my ($num, $val) = split / /, $line;

  if ($num > $biggest_num) {
    $biggest_num = $num;
    $matching_val = $val;
  }
}

# 打印结果
print "最大的数字是：$biggest_num\n";
print "相应的值是：$matching_val\n";

代码中，我们打开名为data.txt的文件，并使用while循环逐行读取文件中的数据。对于每一行，我们使用split函数将行拆分为数字和相应的值。接下来，我们使用if语句来检查数字是否比以前的最大数字大，如果是，我们就将最大数字和相应的值更新为此行的数字和相应的值。最后，我们打印出最大的数字和相应的值。

请注意，此示例假设数据文件中的数字和值之间用空格分隔。如果您的数据文件使用其他分隔符，请相应地更改代码中的这一行：my ($num, $val) = split / /, $line;并将其替换为适当的分隔符。

最后，我们建议始终使用“严格”和“警告” pragma来帮助调试和避免常见的错误。