Select Code to Download

$VAR1 = {
          '1' => {
                   '1' => {
...
                          }
                 }
        };

106    my $status;
107    for $status (keys %Status) {
108        for (keys %{ $Status{$status} }) {
109            print $Status{$status}{$_}{'Name'}, br;
110        }
111    }

105    my $status;
106    my $id;
107    for $status (keys %Status) {
...
109            print $Status{$status}{$id}{'Name'}, br;
110        }
111    }