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