for $type (keys %$curr_struct_pos) {
	for ($a=1;$$curr_struct_pos{$type}[$a];$a++) {
		$path = "Global${type}Def:$$curr_struct_pos{$type}[$a].def";
		print $path,"\n";
		$$curr_struct_pos{$type}[$a] = extrct();
	}
}