After the map() statement you do a useless chomp of $ipnumber. did you mean to do that to @iparray instead? That could mess up the ping module, I suppose.

When's the last time you used duct tape on a duct? --Larry Wall