my $host = $link->gethost; if( grep{ $host eq $_ }@htmlsite_hosts ){ print "enthalten\n"; }