foreach my $line1 (@lines1) {
  print APPEND grep $line1 ne $_,@lines2 ;
}