Your request is very unclear. Are you trying to skip over duplicates? If so, you can do

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

For example,

my @users = qw( John Jane John Jeff );

my %seen_users;
for my $user (@users) {
    next if $seen_users{$user}++;
    print "$user\n";
}
[download]

John
Jane
Jeff
[download]