while (my $line = <IN>){
    my $server_name = (split /[<>]/, $line)[2];
    print "Name ; $server_name\n" if exists $computers{$server_name};
}