Question

perl的循环嵌套结果输出不了

我写了如下perl的循环嵌套，个人觉得条理上没什么问题，但是不管怎么写都只有第一行有结果，不知道错在什么地方，麻烦高手帮忙看一下，急用，跪谢！
while (<FF>) {
chomp;
$temp=$_;
while (<F1>) {
if (/\t$temp\t/){
chomp;
print F2 "$_\t";
}
}
print F2 "\n";
}
（以上代码我把while 替换为foreach ， for都试过了，结果都只是第一行有结果，其他行都是换行符。这段循环中，文件FF每行只有一个数字，也就是只有一列；想把文件F1中包含FF中每个数字的行放在一列；即F1中包含数字3的都放一行，包含数字5的都放一行……）

Answer 1

当然了
while (<F1>) {
if (/\t$temp\t/){
chomp;
print F2 "$_\t";
}
}这个while执行完已经到文件尾了，下一次循环没法工作的
解决方法是，将F1的文件读到一个数组里先，之后是遍历数组而不是文件
方法二读到F1的文件seek回文件头