@a = qw ( server1 server2 server3 server5 );

open FILE , "file";
@b = <FILE>;
close FILE;

@c = grep!${{map {$_ ,1}@a}}{$_},@b;

print "@c";


##</code><code>##

$cat file
server2
server5
server7
server8