@a = qw ( server1 server2 server3 server5 );

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

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

print "@c";