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