my @iparray =
    map defined() ? join('.', unpack 'C4', $_) : (),
    map scalar(gethostbyname $_),
    @machine;