Нужно преобразовывать большое количество hostname в ip.
Проблема действительно в неправильном формате данных, более менее удалось решить так:
use Socket;
@host=qw(host1
host2
host3);
for $name(@host)
{eval{$address = inet_ntoa(inet_aton($name)); } ;
print $address, "\\n"; };