for $type (keys %$curr_struct_pos) {