如何分析下面的数据

我有一个文本文件，里面都是一些IP地址信息，类似：

117.136.5.88
117.136.26.1
117.136.14.51
.........................

还有一个文本文件，是这样的，类似：

974347263       湖北省  974323712
974349311       辽宁省  974347264
974389247       湖北省  974349312
.................................................................

如何利用perl通过上面的关联文本文件，求出第一个文本文件中的IP归属地呢？
谢谢

    cpan上有Net::IP开头的一堆模块是做这个事的。