open(MYINPUTFILEONE, "inbndtrk1.txt");
open(MYINPUTFILETWO, "inbndtrk2.txt");
$| = 1;
my @linesone = <MYINPUTFILEONE>;
my @linestwo = <MYINPUTFILETWO>;
close (MYINPUTFILEONE);
close (MYINPUTFILETWO);