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

##</code><code>##

printf ("%-15s %-15s\n", "=================================");
printf ("%-15s %-15s\n", "| INBOUND TRACK 1 | INBOUND TRACK 2 |");
printf ("%-15s %-15s\n", "=====================================\n");

foreach (@linesone) {
chomp;
my @field = split(":");
my $format = "%-5s %-6s\n"; 
printf ($format, $field[1], $field[2]); 
}

foreach (@linestwo) {
chomp;
my @field2 = split(":");
my $format2 = "%-5s %-6s\n"; 
printf ($format2, $field2[1], $field2[2]); 

##</code><code>##

foreach (@linesone, @linestwo) {
chomp;
my @field2 = split(":");
my $format2 = "%-5s %-6s\n"; 
printf ($format2, $field2[1], $field2[2]);

##</code><code>##

__DATA__
1:B&O:101
2:B&O:102

__DATA__
1:CSXT:1001
2:CSXT:1002