my @array = qw(user1 user2 user3 user2 user4 user1);
my %seen;
my @unique = grep{!$seen{$_}++}@array;