foreach $hour (@hourRange) {
$timeBlock = $timeDateBase . $hour;
print "$timeBlock\n";

while (<LOG>) {
chomp;
if ($_ =~ /$timeBlock/) {
print "$timeBlock\n";
($a,$b,$c) = split(/"/, $_);
if ($a =~ /^(\S+)\s-\s-\s\[(\S+)\s/) {
$IP = $1;
$timeString = $2;
print "$IP\n";
print "$timeString\n";
}
}
}
}