Select Code to Download

my %curr_struct_pos;

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

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