print "=====================================\n");
print "| INBOUND TRACK 1 | INBOUND TRACK 2 |\n");
print "=====================================\n");
open my $IN1, "<", "inbndtrk1.txt" or die "could not open inbndtrk1.txt" ;
open my $IN2, "<", "inbndtrk2.txt" or die "could not open inbndtrk2.txt" ;
while (my $in1 = <$IN1>) {
     chomp $in1;
     $in1 = s/:/ /;
     my $in2 = <$IN2>;
     $in2 = s/:/ /;
     print "$in1|$in2";
}

##</code><code>##

while (my $in1 = <$IN1>) {
     chomp $in1;
     $in1 =~ s/:/ /;
     my $in2 = <$IN2>;
     $in2 =~ s/:/ /;
     print "$in1|$in2";
}