중복된 라인 출력 문의 및 기타 질문 (perl 프로그래밍)

use strict;
use warnings;
 
my $filename = $ARGV[0];
my @prev_lines; # 직전에 읽은 그룹
my @this_lines; # 이번에 읽은 그룹
 
open my $fh, '<', $filename or die "can not open $filename: $!";
 
while ( @this_lines = read_chunk($fh, 4) ) {
    foreach my $prev ( @prev_lines ) {
        foreach my $this ( @this_lines ) {
            if ( $this->[1] eq $prev->[1]
                    and
                 $this->[2] eq $prev->[2] )
            {
                print "직전 그룹과 중복된 키 : $this->[0] - $this->[1]_$this->[2]\n";
            }
        }
    }
 
    @prev_lines = @this_lines;
}
 
close $fh;
 
 
# 파일을 한 번에 $mod 라인만큼 읽어서 반환
sub read_chunk {
    my ($fh,$mod) = @_;
 
    my @lines;
    while ( <$fh> ) {
        my ($lineid,$code1,$code2) = ( $_ =~ m!(\d+)\s/\s(\S{4})\s(\S{4})!);
        push @lines, [$lineid, $code1, $code2];
        return @lines unless $. % $mod;
    }
    return @lines;
}