perl:将数组拆分为匹配和非匹配

#!/usr/bin/perl

use strict;
use warnings;

my @array = ("apple", "banana", "cherry", "date", "elderberry");

my @matched;
my @unmatched;

foreach my $item (@array) {
    if ($item =~ /a/) {
        push @matched, $item;
    } else {
        push @unmatched, $item;
    }
}

print "匹配的元素：\n";
foreach my $item (@matched) {
    print "$item\n";
}

print "非匹配的元素：\n";
foreach my $item (@unmatched) {
    print "$item\n";
}