如何合并大型未分类文件中的行而不会耗尽Perl中的内存？

#!/usr/bin/perl

use strict;
use warnings;

my $input_file = "large_file.txt";
my $temp_file = "temp_file.txt";
my $output_file = "output_file.txt";

my @data;
my $count = 0;

open(my $input_fh, "<", $input_file) or die "Can't open $input_file: $!";
open(my $temp_fh, ">", $temp_file) or die "Can't open $temp_file: $!";

while (my $line = <$input_fh>) {
    chomp $line;
    push @data, $line;
    $count++;

    if ($count == 1000) {
        foreach my $row (@data) {
            print $temp_fh "$row\n";
        }
        @data = ();
        $count = 0;
    }
}

close($input_fh);
close($temp_fh);

if ($count > 0) {
    foreach my $row (@data) {
        print $temp_fh "$row\n";
    }
}

open(my $output_fh, ">>", $output_file) or die "Can't open $output_file: $!";
open(my $temp_fh, "<", $temp_file) or die "Can't open $temp_file: $!";

while (my $line = <$temp_fh>) {
    print $output_fh $line;
}

close($output_fh);
close($temp_fh);

unlink($temp_file);