for my $type (keys %$curr_struct_pos) {
	for my $index (0..@{$cur_struct_pos->{$type}}-1) {
		$path="Global".$type.
		      "Def:".$curr_struct_pos->{$type}[$a].
		      ".def";
		$curr_struct_pos->{$type}[$a] = extract();
}