Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
print Dumper \@logins;

exit;

@logins = (
    (server1,user1,%),
...
    (server3,user3,%),
    (server3,user3,db3) ) ;