open (FILE, "<$list") or die "$list failed: $!\n";
chomp(@srvr = <FILE>); #note
close (FILE);

foreach $ARGV ( @ARGV ) {
   print "Comparing <$ARGV> to\n";
   $exists = grep { print "  <$_>\n"; $ARGV eq $_ } @srvr;
   if (!$exists) {
       print "Cant do this"; #
       exit (1);
   }
}
[download]