my $number_of_mains = 0;
my $number_of_subs = 0;

foreach my $main (sort(uniq(@mains_paths))) {
	my (@list_of_dirs,@subs_data);
	my $main_path = abs_path($main);

	find( sub { get_valid_dirs( \@list_of_dirs, $_ ) }, $main_path);

	my $main_name = basename($main_path);
	my %main_block = (
		$ALL_DATA_NAME => $main_name,
		$ALL_DATA_PATH => $main_path
	);

    $number_of_mains++;
	
	foreach my $dir (sort(@list_of_dirs)) {
		my ($sub_path,$sub_name,$relative_sub_path,$paths_all,$results_all,@results_data,%sub_block);

		$sub_path = dirname($dir);
		$sub_name = basename($sub_path);
		$relative_sub_path = File::Spec->abs2rel($sub_path,$main_path);
		%sub_block = (
			$SUB_NAME => $sub_name,
			$SUB_PATH => $relative_sub_path,
		);

		$results_all = $dir."/".$DIR_NAME."/".$RESULTS_FILE_NAME;
		unless((-e $results_all) && (-s $results_all)) {
			next;
		}
		prase_file($results_all,\@results_data);

	    $number_of_subs++;

		@{$sub_block{$RESULTS}} = @results_data;
		push(@subs_data,\%sub_block);
	}
	@{$main_block{$SUBS}} = @subs_data;
	push(@mains_data,\%main_block);
}

@{$all_mains{$MAIN}} = @mains_data;
$all_mains{$REPORT_NAME} = $opt_href->{$REPORT_NAME};
$all_mains{$MAIN_COUNTER} = $number_of_mains + 0;
$all_mains{$SUBS_COUNTER} = $number_of_subs + 0;
$all_mains{$TIMESTAMP} = $start_time + 0;