use List::MoreUtils qw(uniq);

my @client_list;
while (my $line = <DATA>) {
    chomp $line;
    next unless ($line =~ /Login succeeded/);
    push (@client_list,(split(' ',$line))[6]);
}

@client_list = uniq(@client_list);
print join("\n",@client_list);