Select Code to Download

$curr_struct_pos = "string";
%$curr_struct_pos;

#assume strict and warnings!
my %hash=(string=>{});

$hash{string}->{$key}->[$index]=$whatever;

$path = "Global".$type.
        "Def:".$curr_struct_pos->{$type}[$a].
        ".def";

sub dump_symbol_table {
    print "SYMBOL TABLE\n---------------------------------------------
+----------\n";
...

BEGIN { dump_symbol_table }
END   { dump_symbol_table }