for my $top_key (keys %{ $self->{code} }){
    print "$top_key\n";
    for my $href (@{ $self->{code}{$top_key} }){
        for (keys %$href){
            print "\t$_ => $href->{$_}\n";
        }
        print "\n";
    }
}