perl 如何查找两个文件中相同元素然后按其中一个文件格式输出？

比如，我有两个文件：
第一个文件格式如下：（以制表符分开）
A01 107 T C
A01 117 C T
A01 747 T G
A01 889 G A
.......
.......
第二个文件是
100
200
117
107
747
...
...
本人的目的是想找出第一个文件第二列中所存在的第二个文件中的所有数据，然后按照文件一的格式输出。
由于小女子是初学perl.还望高手指点。

读入文件，比较，写入文件

lz 可以参照一下文件 I/O 和字符串操作相关的例子代码