my %curr_struct_pos;

##</code><code>##

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();
}

##</code><code>##

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();
}