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

Check out the -> in the code.

Also, use strict and warnings. They might have caught this problem for you.

------
We are the carpenters and bricklayers of the Information Age.

Vote paco for President!