for my $line (@lines){
  for my $line2 (@lines2){
    next if $line !~ /$line2/;
    print $line;
    print "\nyes $line2 exists\n\n";
  }
}