my $key;
while(<>)
{
	if(s/^([A-Z]+)://)
		{ $key = $1 }
	push @{$hash{$key}}, $_
}

# use array consisting 'LENGTH'

print @{$hash{'LENGTH'}}