my @comp = "seed\n"; 
while ($line = <>) {
   push(@comp, $line);
   print $line if $comp[0] eq $comp[1];
   shift(@comp);
}