.... some lines  ....
.......

} elsif(/^Resource Type/) {
				    $section = 'resources';
......
.....

elsif ('resources' eq $section) {
			if (my ($resource, $usage)
				= /^(CPU:|MEMORY:|ALLOCATED STORAGE:)\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+(\S+)$/
			) {
				$usage =~ s/%//g;
				$zone{$current_zone}{cluster}{$current_cluster}{$resource} = { usage => $usage};
			} elsif (/^$/) {
				$section = 0;
		        }
......