my @IParray = qw(172.16.1.2 172.16.1.3);
foreach my $ip (@IParray) {
  my $works = &pingIp($ip);
  if ( $works == 1 ) {
    print "$ip does not ping\n";
  } else {
    print "$ip pings\n";
  }
}