use warnings;

@hostnames = qw(goodhost badhost);

foreach (@hostnames){
	@a = `ping $_`;
	print "for $_ checking.....";
	if ("@a" =~ /please check/){
		print " For $_ : host not available.";
	}
check/;
}