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