if ($old_ip) {
        print "here old ip $old_ip, hostname $hostname, new ip $new_ip \n";
        $ref_data->{$old_ip}{"hostname"} = $hostname;
        $ref_data->{$old_ip}{"new_ip"} = $new_ip;
    }