$ perl -Mstrict -Mwarnings -le '
    my @fields = qw{a a b c b a};

    my %seen;

    for my $field (@fields) {
        print $field, $seen{$field} ? "PUSH" : "SET";
    }
'
aSET
aSET
bSET
cSET
bSET
aSET