Help for this page
DB<134> p $in ZBBBCZZ ... 5 'C' 6 'ZZ' 7 'Z'
DB<137> use List::Util qw/pairkeys pairvalues/ ... 2 'C' 3 'Z' DB<140>
DB<8> use List::Util qw/pairkeys/ ... 2 'C' 3 'ZZ' DB<11>