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

##</code><code>##

my %computers;
open FILE, '<', $namefile or die "Could not open $namefile : $!";
while (<FILE>){
  chomp;
  s/^\s+|\s+$//g; # trim spaces
  next unless /\S/; # skip blank lines
  $computers{$_} = 1;
}
close FILE; 

##</code><code>##


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