Select Code to Download

for my $line (@lines){
  for my $line2 (@lines2){
...
    print "\nyes $line2 exists\n\n";
  }
}