Perl :如何将文件行( CSV文件)读取到哈希键中并按升序排序，然后将它们写入新排序的CSV文件中

use strict;
use warnings;
use Text::CSV;

# 读取CSV文件并填充哈希
my %data;
my $csv = Text::CSV->new({ binary => 1, auto_diag => 1 });

open my $fh, '<', 'input.csv' or die "Could not open 'input.csv' $!\n";
while (my $row = $csv->getline($fh)) {
    my ($key, @values) = @$row;
    $data{$key} = \@values;
}
close $fh;

# 按键升序排序哈希
my @sorted_keys = sort { $a cmp $b } keys %data;

# 将排序后的数据写入新的CSV文件
open my $out_fh, '>', 'sorted_output.csv' or die "Could not open 'sorted_output.csv' $!\n";
$csv->eol("\n");
for my $key (@sorted_keys) {
    $csv->print($out_fh, [$key, @{$data{$key}}]);
}
close $out_fh;

print "Sorted data has been written to sorted_output.csv\n";