{
DATE: foreach my $date ( sort keys %hash )
	{
	print_header( $date );
	my $hour_hash = $hash{ $date };
	
	HOUR: foreach my $hour ( sort { $a <=> $b } keys %$hour_hash )
		{
		my $queue_hash = $hour_hash->{$hour};
		
		my $string = '';
		QUEUE: foreach my $queue ( sort keys %$queue_hash )
			{
			$string .= sprintf 
				"                         %6s  %4d     %4d\n",
				$queue, 
				$queue_hash->{$queue}{'queued'}, 
				$queue_hash->{$queue}{'running'};
			}
		
		# add the hour last to avoid a special case
		substr( $string, 0, 5 ) = $hour;
		
		print $string, "-" x 54, "\n";
		}

	}
	
}