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