server1,user1,%
server1,user1,db1
server1,user2,%
server1,user3,%
server1,user1,%
server1,user2,%
server1,user2,db2
server1,user3,db3
server1,user3,%
server2,user1,%
server2,user1,db1
server2,user2,%
server2,user3,%
server2,user1,%
server2,user2,%
server2,user2,db2
server2,user3,db3
server2,user3,%
server3,user1,%
server3,user1,db1
server3,user2,%
server3,user3,%
server3,user1,%
server3,user2,%
server3,user2,db2
server3,user3,db3
server3,user3,%


##</code><code>##

#!/usr/bin/perl -w
use strict;
use Data::Dumper qw(Dumper);

my (@nulogins, @logins);
my %foo=();
my $fn = 'logins.txt';

open(my $fh, '<', $fn) or die "Could not open file '$fn' $!";
while (my $line = <$fh> ) {
    chomp($line);
    my @login = split /,/,$line;
    push @nulogins, @login;
    #print Dumper \@login;
}
print Dumper \@nulogins;

for (@nulogins) { $foo{$_}++ };
@logins = (keys %foo);

print Dumper \@logins;

exit;


##</code><code>##

@logins = (
    (server1,user1,%),
    (server1,user1,db1),
    (server1,user2,%),
    (server1,user1,%),
    (server1,user1,db1),
    (server1,user2,%),
    (server1,user2,db2),
    (server1,user3,%),
    (server1,user3,db3),
    (server2,user1,%),
    (server2,user1,db1),
    (server2,user2,%),
    (server2,user2,db2),
    (server2,user3,%),
    (server2,user3,db3),
    (server3,user1,%),
    (server3,user1,db1),
    (server3,user2,%),
    (server3,user2,db2),
    (server3,user3,%),
    (server3,user3,db3) ) ;