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";
                $curr_struct_pos->{$type}[$a] = extrct();
        }
}