Select Code to Download

my %servers;
while (<>) {
...
    my $server = $servers{$server_id};
    print(join(',', $server_id, @$server), "\n");
}