my @comp = "seed\n";                                # Fix 1 
while ($line = <>) {
   push(@comp, $line);
   print $line if $comp[0] =~ /^\Q$comp[1]\E\z/;    # Fix 2
   shift(@comp);
}