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";
      }
    }
  }
}