比较打印文件的内容

下面是我的代码:

open (LOGFILE,"number.txt") or die "$!";
while(<LOGFILE>){
$line = <LOGFILE>;
print $line;
        }
$input = <STDIN>;
chomp($input);

foreach my $openlog($line){
       
         if ($input = $line){
                  print $line;
         
        }
}

number.txt 有：
1987
1987
1987
1987
1987
1987
1987
1987
2005
2005
2005
2005
2005
2005

预期的结果: 在命令输入2005把2005全部显示出来.   
不知道那位高人能否帮我修改一下.

#!/usr/bin/perl -w
use strict;
print "Please enter the number that you want to display: \n";
chomp(my $input=<STDIN>);
open (LOGFILE,"number.txt") or die "$!";
while(<LOGFILE>){
    chomp;
    print $_."\n" if($_ eq $input);
    }

动作快

这个还是好好看看小骆驼吧

谢谢.

open (LOGFILE,"number.txt") or die "$!";
@line = <LOGFILE>;
$input = <STDIN>;

foreach my $openlog(@line){
         if ($input eq $openlog){
                  print $openlog;

        }

}

谢谢