Select Code to Download

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

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

...
    next if $seen_users{$user}++;
    print "$user\n";
}

John
Jane
Jeff