Select Code to Download

tail +2 d1.dat > d1.sorted
tail +2 d2.dat > d2.sorted

open(D1,"<d1.sorted");
...
    $d2k = ($d2 =~ /^(\d+\s+\d+)/)[0];
  }
}