my %seen_users;
for my $user (@users) {
    next if $seen_users{$user}++;   <-- Add this line
    ...
}