perl牛人请进

perl牛人请进
列1 列2 列3 列4
0x40 g1 g2 g3
0x00 g2 g3 g6
0x01 g1 g3 g0
如何用perl检索上一行的列4与下一行的列2或列3的字符是否一样？
大牛谢谢了！！！！！

不是牛人，误入----#!.
不是牛人，误入

#!/usr/bin/perl
my @curr;
my @save;
my $line = 0;
while(<DATA>) {
  $line++;
  next unless /\d/;
  @curr = split /\ /;
  if ($curr[1] eq $save[3] or $curr[2] eq $save[3]) {
   print "line $line match\n";
  }
  @save = @curr;
}

__DATA__
0x40 g1 g2 g3
0x00 g2 g3 g6
0x01 g1 g3 g0