Select Code to Download

for(my $i = 0; $i < @lines1; $i++) {
   if($lines1[$i] eq $lines2[$i]) {
...
   } else {
      $difference++;
}