Re^3: How to check lines that start with the same word then delete one of them

in reply to Re^2: How to check lines that start with the same word then delete one of them
in thread How to check lines that start with the same word then delete one of them

use strict;
use warnings;

use Test::More tests => 1;

my @in = (
    'S_FER_SCAM1_ARRESTO;ARRESTO;ST;0;ST;1;0;TS;0;0',
    'S_FER_SCAM1_ARRESTO;ARRESTO;SU LI IR ST;0;SU LI IR ST;1;0;TS;0;0'
);

my @want = (
    'S_FER_SCAM1_ARRESTO;ARRESTO;ST;0;ST;1;0;TS;0;0',
);

my @have;
my %seen;

for (@in) {
    /^(\w+)/;
    if (exists $seen{$1}) {
        next if (/SU LI IR ST/);
        # More code here if it doesn't match - this section not descri
+bed.
    }
    $seen{$1} //= $_;
    push @have, $_;
}

is_deeply \@have, \@want, 'Arrays match';
[download]

In Section Seekers of Perl Wisdom