sub GetHosts {
    my ($line, $ref_data) = @_;
    my ($hostname, $old_ip, $new_ip) = split /,/, $line;

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