# MAKE A FILEHANDLE FOR EACH FILE WE WERE GIVEN
my @files = map {new IO::File $_ or die "could not open $_\n"} @ARGV;

# READ IN A LINE FOR EACH FILE
my @lines = map {scalar(<$_>)} @files;

# GET THE DATES FOR EACH LINE;
my @dates = map {get_time($_)} @lines;

my $MAX = <some date bigger than anything in the logs>;

my $found;
do {
	# FIND THE LINE WITH THE EARLIEST DATE
	my $min = $MAX;
	$found = undef;
	for (my $i=0; $i<$num_logs; $i++) {
		my $num = $dates[$i];
		if ($num < $min) {
			$found = $i; $min = $num;
		};
	};
	if (defined($found)) {
		# IF WE FOUND A LINE, SHOW IT AND READ THE NEXT
		# LINE IN FOR THAT LOG FILE
		print $lines[$found];
		my $io = $files[$found];
		$lines[$found] = <$io>;
		$dates[$found] = get_time($lines[$found]);
	};
	
} while (defined($found));