Select Code to Download

my @hist;
sub print_hash {
...
        }
    }
}

III => 2
I => 1
...
II/B/1 => 4
II/B/3 => 6
II/B/2 => 5