求帮助：Perl脚本匹配问题

脚本如下：
use strict;
use warnings;
my (@alarm,@compare);
my $length1;
my $length2;
my ($j,$k);
my ($abuf,$bbuf);
my @result;
open (FILE1,"1.txt");
@alarm=<FILE1>;
$length1=@alarm;
open (FILE2,"2.txt");
@compare=<FILE2>;
$length2=@compare;
for ($k=0;$k<$length2;$k++)
{

$bbuf=$compare[$k];

for ($j=0;$j<$length1;$j++)
{

if ($alarm[$j]=~ /$bbuf/)
{
print $alarm[$j];
#push (@result,$alarm[$j]);
#print @result; }

}
}

close FILE2;
close FILE1;

为什么匹配不到数据，请帮忙看下，谢谢！

alarm[$j]=~$bbuf

谢谢楼上，不过运行还是没有数据。我把txt的数据写下，格式如下：
1.txt的内容是：
2011-09-01|上海路(200)|dadafd
2011-9-02|秦淮区|dsdsf
2011-09-04|上海路-二|当时的发放
2011-09-04|湖北路-二|当时的kai
2.txt内容为：
上海路
湖北路
海南

###############
麻烦再给看下，谢谢