在perl中有效地检查文件的哪些行不在另一个文件中

use strict;
use warnings;

# 打开第一个文件
open my $file1, '<', 'file1.txt' or die "无法打开文件1：$!";
my %lines;

# 读取第一个文件的内容并存入哈希表
while (my $line = <$file1>) {
    chomp $line;
    $lines{$line} = 1;
}
close $file1;

# 打开第二个文件
open my $file2, '<', 'file2.txt' or die "无法打开文件2：$!";

# 逐行读取第二个文件的内容并检查是否在第一个文件中存在
while (my $line = <$file2>) {
    chomp $line;
    unless (exists $lines{$line}) {
        # 处理不在第一个文件中的行，这里仅打印
        print "第二个文件中的行 '$line' 不在第一个文件中\n";
    }
}
close $file2;