@listip is a list of ips

my $PING = "/usr/sbin/ping";

for ($lindex = 0; $lindex <= $#listip; $lindex++) {
print $listip[$lindex] . "\n";
$PING $listip[$lindex] ;
}