Perl -根据值将排序的数组拆分为两个数组

use strict;
use warnings;

sub split_array {
    my ($value, @sorted_array) = @_;
    my @array1;
    my @array2;

    foreach my $element (@sorted_array) {
        if ($element <= $value) {
            push @array1, $element;
        } else {
            push @array2, $element;
        }
    }

    return (\@array1, \@array2);
}

# 示例用法
my @sorted_array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
my ($array1_ref, $array2_ref) = split_array(5, @sorted_array);

print "Array 1: ", join(", ", @$array1_ref), "\n";
print "Array 2: ", join(", ", @$array2_ref), "\n";