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]);