Select Code to Download

use warnings;
use strict;
...
     print "ip $ip goes with host name $hostname\n";
  }
}

ip 10.1.1.1 goes with host name HOSTNAME
ip 10.1.1.2 goes with host name HOSTNAME
ip 10.3.1.1 goes with host name HOSTNAME
ip 10.3.1.2 goes with host name HOSTNAME